use warnings;
use strict;

#  true
x in 'v'..'z';

#  false
xx in 'v'..'z';

#  but variables aren't barewords

my $x='x';
in->$x('v'..'z');





package in;

use Data::Dump qw/pp/;
our $AUTOLOAD;

sub AUTOLOAD {
    
    (my $LHS= $AUTOLOAD) =~ s/in:://;

    #print  pp [$LHS, @_];

    my $res = grep {$LHS eq $_ } @_;

    my $not ="";
    $not =' not' unless $res;
    
    warn "$LHS$not @_";

    return $res;
}