push @{$r{join ' ' x 8, @F[0..3]};}, [@F[4, 6]];
	{
		foreach my $k (keys %r) {
			my($x, $y);
print "\$r{\$k};", $r{$k};
print "\@{\$r{\$k};}", @{$r{$k};};
			map {$x += $$_[0]; $y += $$_[1];
print "\$_='$_'", "SS_[0]=$$_[0]", "SS_[1]=$$_[1]", "x=$x", "y=$y";
            } @{$r{$k};};
			my @g = split(/\s+/,$k);
			print OUT "$g[0]\t@g[1]\t@g[2]\t@g[3]\t", $x / scalar(@{$r{$k};}), "\t$y\n";
		}
	}