my @Dice = (
roll '1d4',
roll '1d6',
roll '1d8',
roll '1d10',
roll '1d12',
roll '1d20'
);
my @Dice2 = qw(1d4 1d6 1d8 1d10 1d12 1d20);