open(OUTPUT, $file3) || die "Datei nicht gefunden"; #outputfile öffnen
    foreach my $arzt_nr (keys %Ordnung){ 
        my @versnummer = (keys %{ $Ordnung{$arzt_nr}{$vknr}});
            for (1..15){
            my $verrand = $versnummer[rand @versnummer] ;
            print OUTPUT "$arzt_nr;";
            print OUTPUT "$Ordnung{$arzt_nr}{$vknr}{$verrand}{bht};";
            print OUTPUT "$Ordnung{$arzt_nr}{$vknr}{$verrand}{gnr};";
            print OUTPUT "$Ordnung{$arzt_nr}{$vknr}{$verrand}{Name};";
            print OUTPUT "$Ordnung{$arzt_nr}{$vknr}{$verrand}{Vorname};";
            print OUTPUT "$Ordnung{$arzt_nr}{$vknr}{$verrand}{Geburtstag};";
            print OUTPUT "$vknr;";
            print OUTPUT "$_\n";
            }
        }
    close (OUTPUT);
    }