Select Code to Download

foreach my $key (keys %hash) {
    $newhash{$hash{$key}} += $key;
}

%newhash = (
             '1' => 40,
             '2' => 60
           );