foreach (<$bh>) 

{
   my @text=split(/\t/);
   
   $bHash{$text[0]} = $text[11];
}