my @phonesearch;
my @name =<NL>;
chomp(@name);
my $name;

while(my $phonelisting = <PB>) {
  chomp($phonelisting);  
  foreach $name (@name) {
    if ($phonelisting =~ /$name/) {
      push(@phonesearch,$phonelisting);
    }
  }
}
print OUT "@phonesearch\n";