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