foreach my $key (keys %hash) { $newhash{$hash{$key}} += $key; } #### %newhash = ( '1' => 40, '2' => 60 );