Select Code to Download

...
    my $pos = $data[1];
...
    my $cons4 = $data[5];
    my $cons5 = $data[6];
...

while( <FILE> )
{
    my( $pos, $cons1, $cons2, $cons3, $cons4, $cons5 ) = split;
...