sub lsearch { my $item = shift; my @array = @_; foreach (0..$#array) { if ($item eq $array[$_]) { return $_; } } return ""; } # Want to remove $item from @list unless (my $index = lsearch($item, @list) eq "") { splice(@list, $index, 1); }