@strings = sort { $b <=> $a } @strings;