Select Code to Download

use strict;
use warnings;
...

print Dumper (\%hash);
Dump (\%hash);

$VAR1 = {
          'that' => undef,
...
                     3.1
                   ]
         };