You don't need the array, you can just use a while statement on the filehandle. e.g.

while <FH>
{
   if ($_ eq $external_info) {
       print "great\!"; last;
   }
}
[download]