for (reverse lsearch $item, @list) {
    splice @list, $_, 1
}
# or
splice @list, $_, 1 for reverse lsearch $item, @list;