for my $k (keys %{$data}) {
      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]) {
          print $fhout "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n"; #Daten werden in die Datei geschrieben
        }
      }