my @entries = split /\s+/, $line;
my ($x, $y, $z) = split /\s+/, $line;