my $counter = 0;

for my $key (sort keys %words1)
{
    if (exists $words2{$key})
    {
        ++$counter;
        print $key, "\n\n";
    }
}

print "Found $counter words in common\n";