Just negate the match e.g

my @selected_names = grep(!/todd/, @all_names);
[download]

Although a comparison might be more appropriate e.g

my @selected_names = grep { $_ ne 'todd' } @all_names;
[download]

See. perlop for more info.
HTH

_________
broquaint