How to integrate a loop in another loop in Perl -

for code below trying include loop foreach statement. have 2 lists. first 1 "item" list check elements if 0 or not. second list "varis" list values saved case values not zero.

i want check if values in list "item" zero, if set elements zero. if not set value of first element first value listed in list varis. same goes second element. if second element not 0 set value second value listed in varis , on. far used foreach statement check elements of "item" list. i'm not sure how go second list. thinking integrating second loop foreach statement. don't know how.

$sums = (2+4+5+6+5+10+4);  @item=(0,50,5,3,5,15,0); $sum = 0; @varis = (2,4,5,6,5,10,4);  foreach $item(@item){         if ( $item==0) {$item=0}    # if element in item 0 set element 0            else {$item=$varis;}     # else element in @item set value first element in @varis, second element (if it's not zero) in @item add second element , on             $sum = $sum + $item;         # sum values     }      $result = $sums/$sum;     print "$result\n"; 

you want $varis[$i] $i index of element of @items being processed, don't have $i. such, need iterate on indexes of @items instead of iterating on elements.

solution:

my $sum = 0; $i (0..$#items) {     $item;    if ($items[$i] == 0) {       $item = 0;    } else {       $item = $varis[$i];    }     $sum = $sum + $item; } 

simplified solution:

my $sum = 0; $i (0..$#items) {     $sum += $varis[$i] if $items[$i]; }