sub test($@;\%){ 
    my( $scalar, @array, $hashref ) = @_; 
    pp $_ for $scalar, \@array, $hashref;
};;

$s='fred'; 
@a = 1..10; 
%h = 1..10;;

test( $s, @a, \%h );;
"fred"

[
  1,
  2,
  3,
  4,
  5,
  6,
  7,
  8,
  9,
  10,
  { 1 => 2, 3 => 4, 5 => 6, 7 => 8, 9 => 10 },
]

undef