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