use strict;
use warnings;

my $letters = 'jboiac';
my ($lcount, $blanks, %lhash, $handle, @matches);

$lcount = length($letters);
$blanks = $letters =~ s/([^a-z])//g;

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

open ($handle, 'dict1.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 ($nf, %wlhash);
    $wlhash{$_}++ for split //, $_[0];
    for (keys %wlhash) {
        no warnings;
        return 0 if $lhash{$_} < $wlhash{$_} &&
            ($nf += $wlhash{$_} - $lhash{$_}) > $blanks;
    }
    return 1;
}