open(FH, "/path/to/file") || die "Can't open file: $!";
my @file = <FH>;
close FH;

foreach my $file (@file){
     if($file eq $external_info){
          print "great\!";
          last;
     }
}