sammenlign indhold af to filer

Jeg fik ikke hele programmet med. Her er det:
#!/usr/bin/perl
use strict;
use FileHandle;
                                                                                                                           
                                                                                                                           
my $filename = "file.txt";
my $outfile = "godkendtnavn.txt";
                                                                                                                           
my $ind = new FileHandle ("< $filename");
my $ud = new FileHandle ("> $outfile");
                                                                                                                           
my $found = 0;
                                                                                                                           
print "indtast navn:";
my $navn;
chomp($navn=<STDIN>);
                                                                                                                           
while (<$ind>) {
  chomp;
  if ($navn eq $_) {
    $found = 1;
  }
}
                                                                                                                           
                                                                                                                           
  if ($found == 1) {
    print $ud "navnet $navn er et godkendt drengenavn \n";
    print "navnet $navn er et godkendt drengenavn \n";
  }  else {
    print $ud "navnet $navn er ikke godkendt drengenavn\n";
    print "navnet $navn er ikke et godkendt drengenavn\n";
  }

Hvad med

#!/usr/bin/perl -w

$fileName = "file.txt";
$nameFile = "godkendtnavn.txt";

open( IN,    $fileName  ) || die "File $fileName  not found";
open( NAMES, $nameFile )  || die "File $nameFile not found";

@inArray = <IN> ;
@nameArray = <NAMES> ;

for ( $i=0 ; $i <= $#inArray; $i++ )
{
  chop( $inArray[$i] );
  $currentName = $inArray[$i] ;
  @match = grep( /$currentName/, @nameArray );
  if ( $#match < 0 )
  {
    print "Who is [$inArray[$i]]\n";
  }
  else
  {
    print "We have a match [$currentName]\n";
  }
}

dit forslag søger ikke hele filen i gennem. Hvis ikke de samme elementer står på de samme pladser, virker programmet ikke.

'for' lykken undersøger alle linier i file.txt
For hver linie grep'es i nameArray som indeholder alle godkendte navne.
Hvad mener du med at filen ikke søges helt igennem og at rækkefølgen har nogen indflydelse?