while (<$fh>) {
	chomp;
	# use $_ instead of $row
	# etc . . .