@monthname = qw( jan feb mar apr may jun jul aug sep oct nov dec);
print $monthname[$_], $/ for 0..11;