Select Code to Download

foreach my $table (@_) {
    foreach my $key (sort keys %$table) {
...
    }
    print "\n";
}

foreach my $table (@_) { 
        foreach my $key (sort keys %$table) { print "    $key => $tabl
+e->{$key}\n" }  
        print "\n";
}