use Data::Dumper;

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