(undef, $foo, undef, undef, $bar) =(1..5);
print "$foo $bar";
##</code><code>##

($foo, $bar) =(1..5)[1,4];
print "$foo $bar";