my @data = map [/[^,\n]*/g], <CSV>;