Help for this page
use Data::Dumper; @{$p}{qw(One Two Three)} = (1..3); print Dumper($p);
$VAR1 = { 'Three' => 3, 'Two' => 2, 'One' => 1 };