my $word1 = "...";
my $word2 = "...";
my $data  = { ... }; # Contains the data above
my $sum = 0;
foreach my $property (keys %{$$data {$word1}}) {
    $sum += $$data{$word1}{$property} if exists $$data{$word2}{$property};
}