Print key when sorting hash by value

[Anonymous Monk]

Dear Monks, Hoping you can help. I have a hash of strings which I want to sort by string length ( which I can do). However I also want to print out the hash key. Thanks.

    foreach my $value ( sort { length($b) <=> length($a) } values %has
+h ) {

        print "Value: $value\n";
        print "Key:   ???\n";

    }

[choroba]

Sort the keys by the lengths of the values:

for my $key (sort { length($hash{$a}) <=> length($hash{$b}) } keys %ha
+sh) {
    print "$key : $hash{$key}\n";
}

[Anonymous Monk]

Thanks for your speedy reply! You're the best, thanks!