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