my @empties = ();
for my $i(0..$#array) {
   unless(defined $array[$i]) {
       push @empties, $i;
   }
}
print "undefined indices @empties\n";