my @Dice = qw(1d4 1d6 1d8 1d10 1d12 1d20);
my @Roll = map { roll($_) } @Dice;