c:\@Work\Perl\monks>perl -wMstrict -le
"sub foo (\%\@) {
   my ($hashref, $arrayref) = @_;
   ;;
   print ref $hashref;
   print ref $arrayref;
   ;;
   print qq{spanish for 'two' is '$hashref->{two}'};
   print qq{@{ $arrayref }};
   }
 ;;
 ;;
 my @ra   = qw(fee fie foe fum);
 my %hash = qw(one uno  two dos  three tres);
 ;;
 foo(%hash, @ra);
"
HASH
ARRAY
spanish for 'two' is 'dos'
fee fie foe fum