my %map = (...);
@$h{values %map} = delete @$h{keys %map};