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