my %fields;
    #$csvIn is a Text::xSV object.
    my @field_names = qw/ partner kampagne keywordCluster keyword clicks leads
        orders jaronVerguetung partnerVerguetung profit /;
    while ($csvIn->get_row()) {
        @fields{@field_names} = $csvIn->extract( @field_names );
        foreach my $k ( @field_names ){
          $fields{$k} = "" unless defined $fields{$k};
        }
    }