use Term::Choose qw( choose );

my $d = choose( [ 1 .. 20 ] );
# scalar context: ein Element kann ausgewählt werden
my @a = choose( [ 1 .. 20 ] );
# list context: mehrere Elemente können ausgewählt werden