perldl> p $dice2 .= -99;