http://www.perlmonks.org?node_id=312768


in reply to Re: Critique
in thread Critique

I've never seen this before: 
my %months;
@months{1..12} = qw/Jan Feb Mar Apr
                    May Jun Jul Aug
                    Sep Oct Nov Dec/;

[download]
Thanks, I like it.

In Section Seekers of Perl Wisdom