Select Code to Download

my $j = 0;

...
}

print "undefined indices:  @empty \n";

my @empties = ();
for my $i(0..$#array) {
...
   }
}
print "undefined indices @empties\n";