sub match($$$) {

    my ($self,$letters,$word) = @_;

    return 0 if length $letters < length $word;

    $lcount{$_}++ for lc($letters) =~ /./g;

    for (lc($word) =~ /./g) {

      return 0 unless $lcount{$_}--;
    }
    
    return 1;
}