Select Code to Download

foreach my $value (sort keys %tophash)
{
  print $value;
}

foreach my $value (sort keys %{$tophash{$subhash}})
{
 print $value;
}