my (%file1, %file2);
$file1{$_}++ foreach @file1;
$file2{$_}++ foreach @file2;