Select Code to Download

print scalar <DATA>;

#! perl -slw

    print join "\t", $label, map $_+1, sort{
        $order[ $a ] <=> $order[ $b ]
    } 0 .. $#order;