@b = map { defined($a[$_]) ? ($a[$_]) : () } 0..5;

##</code><code>##

@b = grep { defined } map { $a[$_] } 0..5;