for my $key ( reverse sort {length $a <=> length $b} ) {