You can try the following representing a bag with tiles AAABBC and asking for racks of 2 tiles

use Math::Combinatorics qw(combine);

my @data       = qw(A B C);
my @frequency  = qw(3 2 1);
my $racklength = 2;

my $combinat = Math::Combinatorics->new(count   => $racklength,
                                      data      => [@data],     
                                      frequency => [@frequency],
                                     );

while(my @combo = $combinat->next_multiset){
    print join(' ', @combo)."\n";
}
[download]

Replace sample values with actual values for Wordfeud to watch the results print at a very slowly pace down your screen. /L