use Tree::Trie;

# read in all of dict - it's around 400K words
open(DICT, "<", "/usr/share/dict/words");
my $trie   = new Tree::Trie;
my $trie_r = new Tree::Trie;
while (<DICT>) {
    chomp;
    next if /[^-\w\d]/;
    $trie->add($_);
    $trie_r->add(join('',reverse split('', $_)));
}
close DICT;

use Time::HiRes qw(time);
my (@match, $start);
foreach my $lookup (@ARGV) {
    my @args;
    my $t;

    my $start = time;
    if ($lookup =~ /^([^\*]+)\*$/) {
        @match = $trie->lookup($1);
    } elsif ($lookup =~ /^\*([^\*]+)$/) {
        @match = map { join('',reverse split('', $_)) }
          $trie_r->lookup(join('',reverse split('', $1)));
    }

    print $lookup, 
      sprintf(" (%0.4fs) : ", time - $start), 
      join(',', @match),
      "\n";
}