$letters = 'chuncii_';

$lcount = length($letters);

while ($letters =~ /[^a-z]/) {
    $letters =~ s/[^a-z]//;
    $blanks++;
}

$lhash{$_}++ for split //, $letters;

open ($handle, 'dictionary2.dat');
while (<$handle>) {
    chomp; push @matches, $_ if scrabble($_);
}
close ($handle);

print join "\n", sort { length($b) <=> length($a) || $a cmp $b } @matches;

sub scrabble {
    return 0 if length($_[0]) > $lcount;
    my %wlhash;
    $wlhash{$_}++ for split //, $_[0];
    $nf = 0;
    for (keys %wlhash) {
        return 0 if $lhash{$_} < $wlhash{$_} &&
            ($nf += $wlhash{$_} - $lhash{$_}) > $blanks;
    }
    return 1;
}