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;