Select Code to Download

@feed = @keysout[0,1];
...
...
    my $w2 = $feed[1];
#no $nw needed!
...

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