11 lines
276 B
Perl
11 lines
276 B
Perl
|
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";
|
||
|
|
}
|
||
|
|
|
||
|
|
|