while (my $line = <INFILE>) {
    chomp $line;
    if ($line =~ /^$ARGV[1]/){
        $filter_count++;
        push(@rawfile,$line);
    }
}