Is this what you want?

use Data::Dumper;

@{$p}{qw(One Two Three)} = (1..3);
print Dumper($p);
[download]

Prints:

$VAR1 = {
          'Three' => 3,
          'Two' => 2,
          'One' => 1
        };
[download]

Update: Blast you, arturo, and your quick typing. ;-)

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.