Select Code to Download

my @wordsList;
for my $word ( keys %{ $hash{ $w1 }{ $w2 }{ words } } ) {
...
}

print @wordsList[ rand( @wordsList ) ];