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