my $alphabet = join '', ('a'..'z'); my $phrase = "abcd efgdhij kijl hecmin"; my ( $min, $max ) = (5, 15); my @dict = ; # or similar my %hash = t( $phrase, $alphabet, $min, $max, \@dict ); # see update 2 below!! # Hash will look like: # %hash = ( efgdhij => [ "another", "fathers", ... ], # hecmin => [ "hacker", "strong", ... ] );