my @array = 1..10; print "@array\n"; my $item = 3; foreach my $element (@array) { undef $element if ($element eq $item); } print "@array\n"; print $#array + 1; #### my @array = 1..10; print "@array\n"; my $item = 3; my @empties; my $count; foreach my $element (@array) { if ($element eq $item) { undef $element; push @empties, $count; } $count ++; } foreach (@empties) { splice (@array, $_, 1); } print "@array\n"; print $#array + 1;