for my $arzt_nr ( keys %Ordnung ){
    my @ver =  keys %{ $Ordnung{$arzt_nr}{$vknr}{$versnummer} };
    for (1..15){
        my $verrand = $ver[ rand @ver] ;
        warn $Ordnung{$arzt_nr}{$vknr}{$verrand}{ziffer};
    }
}