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