while ( my $row = $csv_in->getline($fh_in) ) {

    # doing stuff with the columns

    #print(...);
    $csv->print( ... );
}