open (FILE, $ReferenceFilePath) or die "Can't open file";
chomp (@REFFILELIST = (<FILE>));
close(FILE);

open OUTFILE, ">$OUTPUTFILE" or die $!;

open (LARGEFILE, $LARGESIZEDFILE) or die "Can't open File";
while (<LARGEFILE>) { 
    foreach my $line (@REFFILELIST)   {        
          print OUTFILE $_ if (index($_, $line);
     }
}
close(LARGEFILE);
close(OUTFILE);