Select Code to Download

use strict;
use Data::Dumper;
...

print Dumper(\%hash);

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