Work with the hash more directly:

use Data::Dumper;
my $p = {};
@$p{qw(fee fie foe)} = 1 ..3;
print Dumper($p);
[download]

HTH

Philosophy can be made out of anything. Or less -- Jerry A. Fodor