my @monthname = qw( jan feb mar apr may jun
                    jul aug sept oct nov dec );