for my $k ( keys %{$data} ) {
    if ( open( $fhout, '>', "$k.csv" ) ) {
        print $fhout "----$k----\n";    # name der Ausgabe Dateien
        print $fhout "$k: $param->{$k}\n"
          ;  # Name und entsprechende Parameter werde in die Datei geschrieben
        for my $i ( 0 .. $#{ $data->{$k} } ) {
            if ( $param->{$k} ne $data->{$k}->[$i]->[1] ) {
                #Daten werden in die Datei geschrieben
                print $fhout "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n";   
            }
        }
    }
    else {
        warn "FEHLER ($!) bei Datei $k.csv";
    }
}