my $z = random( 10 ); $z( $z-> maximum_ind ) .= 0; print $z;