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' COLUMN
print Dumper \@filter; #### For Debugging Purposes