sort { $freq{$a} <=> $freq{$b} } keys %freq
sort { lc($a) cmp lc($b) || $a cmp $b } keys %freq
sort {
    length($a) <=> length($b)
 || lc($a) cmp lc($b)
 || $a cmp $b
} keys %freq