my $z = random(5, 10);
$z = $z - $z->avgover->transpose;
print $z;