use Benchmark;

$letters = 'chunzcii';

$sorted = join '', sort split //, $letters;
$lcount = length($letters);

$t0 = new Benchmark;
open ($handle, 'dictionary.dat');
while (<$handle>) {
    chomp; $w++ if scrabble($_);
    $c++;
}
close ($handle);
$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";

print "$w matches from $c words";

sub scrabble {
    return 0 if length($_[0]) > $lcount;
    $p = 0;
    for (sort split //, $_[0]) {
        return 0 if !($p = index($sorted, $_, $p) + 1);        
    }
    return 1;
}