Guess it's time to add a map solution as well.

my @n = array with nulls;

@n = map { defined $_ ? $_ : () } @n;
[download]