sub find_boggle_words {
   $storage = prepare_boggle_search( $n, @bogglelist );

   @matched = grep { test_boggle_word( $_, $n, $storage ) } @$dict;
   return @matched;
}