Select Code to Download

use strict;

...

use Data::Dumper;
print Dumper \%HASH;

$VAR1 = {
          'bill' => {
...
                    },
          'bob' => 3
        };