Select Code to Download

use warnings;
use strict;
...
$href->{$lastkey} = "";

print Dumper \%hash;

$ perl dive.pl 
$VAR1 = {
...
                          }
                 }
        };