Select Code to Download

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

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