my $score = sum $dice->roll;