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

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

##</code><code>##

while(1) {

##</code><code>##

  my @phonelisting = <PB>;
  chomp(@phonelisting);  
  my @name = <NL>;
  chomp(@name);

##</code><code>##

  my @phonesearch = grep @name, @phonelisting;

##</code><code>##

print OUT "@phonesearch\n";
last if eof;

##</code><code>##

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