#!perl
use warnings;
use strict;

open FILE,"genevariations9_a.txt";
open OUT,">variants2.txt";
my %filter;
$filter{"DBVPG1788"}++;
$filter{"L_1528"}++;
$filter{"SK1"}++;
$filter{"DBVPG1373"}++;
$filter{"NCYC110"}++;
$filter{"YJM975"}++;
$filter{"YJM978"}++;
$filter{"DBVPG6044"}++;
$filter{"DBVPG6765"}++;
$filter{"Y55"}++;
$filter{"UWOPS03_461_4"}++;
$filter{"YPS606"}++;
$filter{"YPS128"}++;
$filter{"W303"}++;
$filter{"Y12"}++;

while (my $line = <FILE>){
	my @cells=split /\t/,$line;
	if(exists $filter{$cells[0]}){
		$cells[6]="";
		$cells[9]="";
		$cells[10]="";
		my $out = join "\t",@cells;
		print OUT $out;
	}
}
