Help for this page
@a = grep { not is_unwanted($_) } @a;
my @a = qw(bob bob alice bob john); for (reverse 0 .. $#a) { splice @a, $_, 1 if $a[$_] eq "bob"; }