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