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