Select Code to Download

(undef, $foo, undef, undef, $bar) =(1..5);
print "$foo $bar";

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