...
    my $pos = $data[1];
    my $cons1 = $data[2];
    my $cons2 = $data[3];
    my $cons3 = $data[4];
    my $cons4 = $data[5];
    my $cons5 = $data[6];
...

##</code><code>##

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