foreach $key (sort keys %hash) {
        print "$key\n$hash{$key}\n";
}