sort { $b <=> $a } ( (length '.' ) .. (length '..........') );