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

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

    }