Select Code to Download

@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";
}