Select Code to Download

my @months=qw(jan feb mar);
my $month="jan";
print "Found" if grep{$month eq $_}@months;