$csv->print (OUT, [ $_ ]) for @arr;