Select Code to Download

my %a;
$a{key1}{a}{key2}{b}{key3}{c}{key4}{d}=1;
...
{
 whateveryouwant with your elements of %a;
}

foreach my $key1 (keys %{$a{key1}...})
{
...
  ...
 }
}

%a={a => {b => c}, b => 3};
open FILE, "myhash.txt";
print FILE Dumper (%a);
cloes FILE