(undef, my $foo, undef, my $bar) = @array;