foreach (sort { length($b) <=> length($a) } keys %keywords) {
   ...
}