my @months = ( qw/Jan Feb Mar Apr May ... Dec/ );
my $month  = $months[$mon];