my $line, $word, @array;
while( $line = <FILE> ){
  foreach $word ( @array) ){
    do_something if( $line =~ /\b$word\b/g ); 
  }
}