my $z = float 1000 * random(10); $z = long $z;