while ( my $hr = $csv->getline_hr( $fh_in ) ) {
    $csv->print( $fh_out, \@{$hr}{@felder} ); 
    say $fh_out '';
}