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