Select Code to Download

use strict;
use warnings;
...
my %hash = ();
PopulateHash(\%hash);
print Dumper(\%hash);

$VAR1 = {
          '4' => 'd',
...
          '2' => 'b'
        };
$VAR1 = {};