for my $i ( 0..11 ) {
   print "yes it's a month\n" if $month eq $monthnames[$i];
}

for my $valid_months ( @monthnames ) {
   print "yes it's a month\n" if $month eq $valid_months;
}

print "Yes it's a month\n" if grep { $_ eq $month } @monthnames;