Select Code to Download

my @arraynew = grep { foo($item) } @array;
if ($#arraynew != $#array) {
   # do something when item removed
}

my @arraydelete = grep { !foo($item) } @array;
@array = grep { foo($item) } @array;
foreach my $item (@arraydelete ) {
   # do something when item removed
}