use Data::Dumper;

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

##</code><code>##

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