sort { length $b <=> length $a } @vals ('b' has a higher ASCII value than 'a' and comes first, so it's descending)