@list = grep { $item ne $_ } @list;

##</code><code>##

my ($index) = grep { $item eq $list[$_] } 0..$#list;
splice(@list, $index, 1) if defined $index;