Select Code to Download

use strict;
use warnings;
...
   );

print Data::Dumper->Dumpxs( [ \ %hash ], [ qw{ *hash } ] );

%hash = (
          'that' => {
...
                      8
                    ]
        );