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