next if $let[$p] eq '?';
$pos{$p} = $let[$p];
}
- my @allowable_words = find_allowable_words($database,\%pos,$length);
+ my @allowable_words = find_allowable_words(database => $database,position => \%pos,length => $length);
if (@allowable_words > 200 and not $options{show_all}) {
print STDERR "Only showing 200 of the " . @allowable_words . " possible words\n";
@allowable_words = @allowable_words[0..199];