pizza@pizzabox:~/pl$ perl -le'($a, undef, $b) = 1..3; print "$a $b"'
1 3