I want to change it so that the $text11 could also be $text12,$text14,$text15,$text19 is this possible? if so how?

Yes, whatever you mean by that, it is possible, but its not clear what you mean

Hello Anonymous Monk, Sorry, I've made a mistake! This is the coding that needs adjusting:    if ($bHash{$text[3]} eq $text[11]) { I need it to be adjusted so that it does the following function:  if ($bHash{$text[3]} eq $text[11]|$text12|$text14|$text15|$text19 ) can this be fixed? if so how? Thank you!

What does that mean?

You're making up syntax and you're hoping I know what you mean by it -- I can venture a guess, but the point is, you need to ask a better question

You probably mean

for my $value (@text[11, 12, 14, 15, 19]) {
    if ($bHash{ $text[3] } eq $value) {
        $bHash{ $text[0] } = $value;
        last;
    }
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Here's my guess:

>perl -wMstrict -le
"use List::MoreUtils qw(any);
 ;;
 my $s = 'B a B b B c B d';
 ;;
 my @text = split /\s+/, $s;
 ;;
 if (any { $text[0] eq $text[ $_ ] } 2, 4, 6, 7) {
   print 'something was eq';
   }
"
something was eq
[download]

That's what variables were invented for

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

In this case the user is asked to type in a column number between 11 and 19