Select Code to Download

>perl -MO=Concise -e"@b = sort @a"
...
...
...
7              <@> sort lK/REV ->8
...

if (PL_op->op_private & OPpSORT_REVERSE) {
    SV **p = sorting_av ? AvARRAY(av) : ORIGMARK+1;
...
        *q-- = tmp;
    }
}