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

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