>perl -wMstrict -le
"use Data::Dump;
 ;;
 sub S (\@) {
   my ($array_ref) = @_;
   dd $array_ref;
   }
 ;;
 my @ra = (qw(foo bar baz), [ 1, 2, 3 ]);
 S(@ra);
"
["foo", "bar", "baz", [1, 2, 3]]