for my $line (<INFILE>) {
    chomp $line;
    my @splitline = split("\t", $line);
    #my $poskey = $splitline[0] . ":" . $splitline[1];

    for (@splitline){
        if (/^$ARGV[1]/){
            $filter_count++;
            push(@rawfile,$line);
        }
    }
}