Help for this page

Select Code to Download

Select or download this

while ($line = <MAIN_FILE1>)
{
    print OUTPUT1 "$filename\n" if (exists($hash1{$entry}));
    print OUTPUT2 "$filename\n" if (exists($hash2{$entry}));
}