Ya lo he conseguido, o sea que me autocontesto por si a alguien le viene bien. La formula seria la siguiente:
sort { length($b) <=> length($a) } keys %hash
al anjadir length, la comparacion se realiza por el largo en lugar de por el tamanjo.
sort { length($b) <=> length($a) } keys %hash
al anjadir length, la comparacion se realiza por el largo en lugar de por el tamanjo.