#! /bin/perl
$DATA_DIR = "/export/home/data";
$Dump_Data = "/export/home/data/Dump";
$HSS_Data = "/export/home/HSS/data";
$File2 = "$Dump_Data/File2";

open IN1,"cat $File1|" or die "Can't open $File1: $!\n";
open (OUT1, ">>File3.txt") or die "Can't open $File3.txt: $!\n";

while ($line1 = <IN1>) {
    chomp($line1);
    open IN2,"cat $File2 |" or die "Can't open $File2: $!\n";
    while ($line2 = <IN2>) {
        if ($line2 =~ /$line1/) {
            print OUT1"$line2";
            last;
        }
    }
    close(IN2);
}
close(IN1);