my @array = ('file', 'this', 'dog', 'forward' );
my $searchstring = join '|',@array;

foreach ( @file ) {
   if ( /($searchstring)/i ) {
      push @stringsfound,$1 unless grep { $_ eq $1 } @stringsfound;
   }
}