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";

 }

}