#!/usr/bin/perl
open(FILE2, "<testfile2");
@lines2 = <File2>;
%hash2 = @hash{@lines2};
open(FILE1, "<testfile1");
@lines1 = <FILE1>;
foreach (@lines1)
if ($_ == %hash2);
%hash2 +=1