while (my ($name, $id) = each %name_zu_id) {
  $id_zu_wert{$id} = $name_zu_wert{$name}
}