my $inp;
print "What column do you want ? ";
do {
  $inp= <>;
  chomp($inp); 
} until ($inp=~/^\d+$/ and $inp>=11 and $inp<=19);

foreach (<$bh>) 

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