perl的幾個for循環判斷

#計算1到100的和 foreach $i (1..100) {   $sum=$sum+$i; } print $sum."\n"; #九九表 $j=1; for $i (1..9) {    for $j ($j..$i)    {     print "$j"."x"."$i=".$j*$i." " ;  } print "\n"; } #取出1到100內包含7的數和能被7增除的數字 for (1..100) {  if(($_ %7 eq 0)||(/7/)){    print $_."\n";  } } #取出1到100內的偶數 for (1..100) {   if (($_%2 eq 0))   {     print $_."\n";  } }