Select Code to Download

my $count=1;
my %hash;
...
use Data::BFDump;

Dump(\%hash)->Out();

$HASH1 = {
           0 => {
...
                  6 => 9
                }
         };