perldl> p $dice1 = dice($piddle, [1,3],[0,7]);