Try

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

or

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

Hope it helps
UnderMine