Select Code to Download

use strict;
use warnings;
...

print Dumper (\%hash);
print Dumper (\%rhash);

$VAR1 = '%hash';
$VAR2 = {
...
          '1' => 40,
          '2' => 60
        };