my @row = split(/\s+/,$row);