Help for this page

Select Code to Download


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