Select Code to Download

[$index]   -> [$index_of{Strand}]
[$index+1] -> [$index_of{Type}]
[$index+2] -> [$index_of{Pos}]

@index_of{@headers} = 0 .. $#headers;

#!/usr/bin/env perl -l

...
    print "Type index:   $index_of{Type}";
    print "Pos index:    $index_of{Pos}";
}

Headers:      Strand Type Pos Length Form Adjustment
Strand index: 0
...
Strand index: 3
Type index:   1
Pos index:    0