print $data{$columns[$c]}[$i]; print "," if $c < $#columns;