my %map = (....);
$h->{$map{$_}} = delete $h->{$_} for keys %map;