for my $key ( sort keys %hash ) {
    my $rev = reverse $key;
    $hash{ $rev } += delete $hash{ $key } if $rev ne $key;
    }
[download]