That's strange, even if I use just the original column i.e. 11 the results are generated but not correctly:

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;
[download]