print "$_\n" for sort { $b <=> $a } ( $string1, $string2, $string3 )