Select Code to Download

my %Freds = (
  'Fred Joe Inc Software Company' => 1,
...
foreach (@Texts) {
  print $_ if $Freds{$_};
}