...

chomp(@jpeg)
my $pattern = join("|", @jpeg);

find( sub { push @foundfiles, $File::Find::name if /$pattern/o }, @directories );

open (OUT, ">>I:\\temp\\Outlist.txt") || die "can't open jpgfiles";
print OUT join("\n",@foundfiles), "\n";
close(OUT);