# search for matching words
my @possible_words =
    map $_->[ 1 ],
    sort { $a->[ 0 ] <=> $b->[ 0 ] }
    map length() == length( $word_pattern ) && pattern_word( $word_pattern, $_ ) ? [ score_word( $_ ), $_ ] : (),
    @dictionary;