@d_array = map { $csv->parse($_) ? [ $csv->fields() ] 
                                 : warn($csv->error_input), () }
                <INFILE>;