Select Code to Download

{ name1 => {property1 => 8.8016,
            property2 => 4.5016,
...
  name2 => { ... },
  name3 => { ... }
};

my $word1 = "...";
my $word2 = "...";
...
foreach my $property (keys %{$$data {$word1}}) {
    $sum += $$data{$word1}{$property} if exists $$data{$word2}{$proper
+ty};
}