my @fields = split /\s+/, $data_line;