use strict;

sub in (@) { my $x = shift; $_ == $x and return 1 for @_; 0 }

my $x = 10;
if(in $x => 1 , 3, 7) {
    print "Found\n";
}
else { print "Not found\n" }
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.