foreach (<$ah>)

{
 my @text = split(/\t/);
 for my $value (@text[11])
 
	{ 
 
	
    if ($bHash{ $text[3] } eq $value) 
	
				{
				$bHash{ $text[0] } = $value;
				last;
				}
				
	print OUT2 join( "\t", @text[1,2,3,4,11,5,6,8,7,11,12]),"\t1\t1\n";
    }
	}

close $ah;