perldl> p $dice2 = $piddle->dice(X,[0,1,8]);