Select Code to Download

my $arraycount=0;
my @array;
...
      push @{$array[$arraycount]}, $_; 
   }
}

my $arraycount=0;
my @array;
...
      ${$array[$arraycount]}{$hkey} = $hdet; 
   }
}