[perl]为啥last跳出的时候直接跳出了两层循环

for (1..5){
 print "Now working on $_ \n";
 my $i = 1;
 do{
  if($i == 5){
   print "I jumped out by i = 5\n";
   last;
  }
  $i++;
 }while($i<10);
}

 

代码中last本来是为了跳出 do-while循环。 按照我的理解 for循环依然执行5次。 但是实际效果，for循环只执行了1次。 last跳出的时候直接出了for.这是为啥？

此问题先记录在这，等找出答案了补充。

 

结果如下：

Now woring on 1

I jumped out by i = 5