my $z = random(3,3,3);
print $z;