use List::Util "min";
...
my $words = min(@words1, @words2);
$total += $words;
$bad += grep $words1[$_] ne $words2[$_], 0 .. ($words - 1);
...
print "good:", $total - $bad;