@keys = sort(keys %thehash);
foreach (@keys) {
        print "$thehash{$_}";
}