use warnings;
use strict;

my $in = sub {
    my $x=shift;
    return scalar grep {$x eq $_} @_
};


if ( 5 ->$in (0..9) ) {
    print "bin ich drin oder was?";
}

if ( 'x' ->$in (0..9) ) {
    print "mennoooooo... :(";
}