my @arr = split ' ', $line;