Select Code to Download

#!/usr/bin/perl

...
);

print Dumper(\%h);

Overwriting hash key 'one', old value: '1', new value: '3' at tie.pl l
+ine 29
$VAR1 = {
          'one' => 3,
          'two' => 2
        };