my $z = random(5,5); $z = (($z - $z->min) / ($z->max - $z->min)); print $z;