my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = @list1;
$var1 = $num1 + $a;
$var2 = $num2 + $b;
$var3 = $c;
#...
$var1 = $num1 + $d;
$var2 = $num2 + $e;
$var3 = $f;
#...
#etc