$x+= $graw->{x};
$y+= $graw->{y};
$z+= $graw->{z};
$count++;
print "AVERAGE: " . ($x/$count) . ", " . ($y/$count) . ", " . ($z/$count) . "\n";