sub winnow {
    my $item = shift;
    grep { not $item eq $_ } @_;
}

@list = winnow $item, @list;