... foreach (0..$#good_ones) { if (defined $good_ones[$_]) { print ... ...