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