my @lines1 = split(' ', @lines);