foreach my $entry (@file1) {
   $index{$entry} = 1
}

foreach my $entry (@file2) {
   $index{$entry} += 2;
}