@feed = @keysout[0,1];
...
while($cyc_count2 <= $keysout){
	my $w1 = $feed[0];
	my $w2 = $feed[1];
#no $nw needed!
...

##</code><code>##

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