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