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

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

sub prepare_boggle_search {
   # YOUR CODE HERE
}

sub test_boggle_word {
   # YOUR CODE HERE
}