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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

{
    local $, = "\n";
    print(
        sort( { $b <=> $a } @array ),
        ''
    );
}