Here is my code for reading in the input file

 open (FILTER,"$filter_file");
my @filter;

<FILTER>; # read one line from the file [HEADERS]

while (<FILTER>)
{ # read other lines
        chomp; # remove "\n" from the end of the line
        push @filter,[(split /\t/,$_)]; # create an array of the line 
+by s$
}

@filter = sort { $a->[5] <=> $b->[5] } @filter; # sort the array

#---------------------------------------------------------------------
+----$
#PRINTS REFERENCES TO ARRAY FROM LEAST TO GREATEST REGARDING 'ORDER' C
+OLUMN
print Dumper \@filter; #### For Debugging Purposes
[download]