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);
[download]

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

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