my @monthText = qw (jan feb mar apr may jun jul aug sep oct nov dec);
print "$monthText[0] is for January\n";
print "$monthText[11] is for December\n";