use strict;
sub In($@){
my$val =shift;
for(@_){
return 1 if $_ eq $val;
}
return undef;
}

my@list = 'a'..'e';
my$value = 'a';
print "yes\n" if In($value=>@list);

↑じゃぁイヤかな〜？