Select Code to Download

use strict;
use warnings;
...
set_hash(\%h, 42, 'a', 'b', 'c');
set_hash(\%h, 69, 'x', 'y', 'z');
print Dumper(\%h);

use strict;
use warnings;
...
set_hash(\%h, 'jock', 'shock');
set_hash(\%h, 'value', 'abc', 'def', 'ghi', 'jkl', 'xyz');
print Dumper(\%h);

$VAR1 = {
          'abc' => {
...
                          }
                 }
        };