perl -wMstrict -le
"sub S {
   my ($scalar, @ra) = @_;
   ;;
   print qq{scalar: '$scalar'  array:(@ra)};
   }
 ;;
 my @array = (1, 2, 3);
 S('foo', @array);
"
scalar: 'foo'  array:(1 2 3)