my @columns = split / /, $line;