Select Code to Download

    @a = sort {COMPLEX EXPRESSION <=> COMPLEX EXPRESSION} @b

    @a = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_, COMPLEX EX
+PRESSION]} @b