foreach $col (keys %{$row}) {