Select Code to Download

foreach my $a (keys %hash) {
  foreach my $b (keys %{$hash{$a}}) {
    print "$hash{$a}{$b}\n";
  }
}