if ($x==1) { 
		print OUTFILE $line, "\n";
		(@keys)=split(/\t/, $line); 
	} else { 
		my $y=0; 
		(@holder) = split(/\t/, $line); 
		my %hash; 
		
		for my $column (@holder) {