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