for (my ($key,$val) = each %{$ber}) {
   $daten->{$key} = $val;
}

# das gleiche für $kat