sort { my_cmp($b, $a) } @foo            # (2)