Select Code to Download

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

print "$_\n" for sort { $b <=> $a } @array;

print map { "$_\n" } sort { $b <=> @a } @array;

{
    local $, = "\n";
...
        ''
    );
}