Select Code to Download

while(($key, $value) = each(%$href)) {
   $$href{$key}[1][0][0] = 1;
   ...
   print "$key/1/0/0 = $$href{$key}[1][0][0]\n";
}

   my @toparray = @{$$href{$key}};
   my @midarray = @{$$href{$key}[1]};
   my @endarray = @{$$href{$key}[1][0]};