use feature qw/say/;
use List::Compare::Functional qw/get_intersection/;

# ...

my @common  = get_intersection( [keys %words1], [keys %words2] );
my $counter = scalar @common;

# output common words
say join "\n\n", @common;

# output count;
say "Found $counter words in common."