$found = 0;
@list = grep { $item ne $_ || $found++ } @list;