Select Code to Download

use strict;
use warnings;
...
}

print Dumper \%out_hash;

C:\tmp>erick.pl
$VAR1 = {
...
                               }
                             ]
        };