Select Code to Download

use Data::Dumper;

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

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