I like (and actually use)

sub is {
    bless \shift, '_hidden';
}

sub _hidden::in {
    my $s=${shift,};
    $s eq $_ and return 1 for @_;
    0;
}
[download]

use it thus:

do_something if is($item)->in(@list);
[download]