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


in reply to Map list of hashrefs

If you don't mind an array of hash rather than three seperate hashes with independent names, I'd do this:
my @array = map { { k => $_ } } qw (val1 val2 val3);

(then accessing val1 and val2 would be... etc...)

 print "$array[0]->{k} $array[1]->{k}";