c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = qw(zero one two three four five);
 ;;
 my (undef, undef, $x, $y) = @ra;
 print qq{'$x' '$y'};
"
'two' 'three'