Select Code to Download

my %form;

...
        print $hoh_keys, $/;    ## get the keys
    }
}

use Data::Dumper;
...
print Dumper \%form;

$VAR1 = {
          'another_hash' => {
...
                              'key 1' => 'value 1'
                            }
        };