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"; }