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... :(";
}


##</code><code>##

/usr/bin/perl -w /tmp/in.pl 
bin ich drin oder was?
Compilation finished at Wed Aug 26 15:42:03