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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print