sub lsearch {
    my $item = shift;
    grep { $item eq $_[$_] } 0 .. $#_;
}