c:\@Work\Perl>perl -wMstrict -e
"sub foo {
   print $_[1];
   print qq{\n};
   ;;
   my @copy_of_arguments = @_;
   print $copy_of_arguments[1];
   print qq{\n};
   }
 ;;
 my @ra = qw(one two three);
 foo(@ra);
 ;;
 foo('four', 'five', 'six');
"
two
two
five
five