Select Code to Download

sub word_to_struct {
    my ( $word ) = @_;
...

    return \%out;
}

...
          'expletive' => { 
...
                         's' => 2
                       },
...

sub possible {
    my ( $tiles_ref, $dict_ref ) = @_;
...
# example:
use Data::Dumper;
print Dumper( possible( [ qw( a b c d e ) ], read_dict() ) );