use Term::Choose qw(choose);
my $list = [ 1 .. 100 ];
my @choices = choose( $list, { mark => [ 10, 15, 200 ] } );