foreach (keys(%{$referenz})){
$referenz{$_} = undef;
}