Select Code to Download

foreach( keys %hash2 ){

...
      print "$_ = ",$hash2{$_}*$hash1{$_},"\n";
   }
}

my %hash = (
    dog => 11,
    budgie => 1,
   #...
)