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