Select Code to Download

use Data::Dumper;
my %h1;
...
my @h = (3, 4, 5);
$h1{(@h)} = 44;
print Dumper(\%h1);

$VAR1 = {
          '22' => 22,
...
          '3' => 44,
          '22' => 19
        };