Help for this page
my @wordsList; for my $word ( keys %{ $hash{ $w1 }{ $w2 }{ words } } ) { ... } print @wordsList[ rand( @wordsList ) ];