my @data = split /\s+/,<$in>;