#usage: ./getfone.pl output 
use strict;

open(NL, "namelist.txt) || die $!;
open(PB, "phonebook.txt") || die $!;
open(OUT,">$ARGV[0].txt") || die $!;

while(1) {
  my @phonelisting = <PB>;
  chomp(@phonelisting);  
  my @name = <NL>;
  chomp(@name);
  
  my @phonesearch = grep @name, @phonelisting;
  
print OUT "@phonesearch\n";
last if eof;
}

close (NL);
close (PB);
close (OUT)