print scalar <DATA>;

##</code><code>##

#! perl -slw

##</code><code>##

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