You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
276 B
Perl
11 lines
276 B
Perl
5 years ago
|
sub mynumbs(@$;$); # Declaration with prototype
|
||
|
@list=(1,2,3);
|
||
|
mynumbs(@list, 25);
|
||
|
sub mynumbs(@$;$) { # Match the prototypes
|
||
|
my ($scalar)=pop(@_);
|
||
|
my(@arr) = @_;
|
||
|
print "The array is: @arr","\n";
|
||
|
print "The scalar is $scalar\n";
|
||
|
}
|
||
|
|
||
|
|