in reply to On-the-fly hashref
Heres how i would have done it...
my $m = 1; my $hash = { map { $m++ => $_ } qw/Jan Feb Mar Apr May Jun Jul Aug Sep + Oct Nov Dec/ };
___________
Eric Hodges
|
---|
In Section
Seekers of Perl Wisdom
in reply to On-the-fly hashref
Heres how i would have done it...
my $m = 1; my $hash = { map { $m++ => $_ } qw/Jan Feb Mar Apr May Jun Jul Aug Sep + Oct Nov Dec/ };
|
---|