my $a = 1;
print((sort { $b cmp $a } qw( a b c z y x )), $/);
print($a, $/);  # Prints "1"