my @months = qw( jan feb mar apr may jun jul aug sep oct nov dec);
my %monthnames;
# create lookup table
$monthnames{$_}++ for @months;
print "Yes it's a month!" if exists $monthnames{$month};