@row = $row;
(@row[0],@row[1],@row[2], @row[3], @row[4], @row[5], @row[6])=split(/\s+/,$row);

##</code><code>##

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