perldocs说下面最后一句：
lastcannot be used to exit a block that returns a value such aseval {},sub {},ordo {},and should not be used to exit a grep() or map() operation.
为什么要在grep()或map()中避免？我特别好奇地图，因为它是foreach结构的替代品。文档似乎坚持不做某事而不描述后果。
解决方法
首先，意识到grep和地图对下一个，最后和重做都是透明的，就像是这样。
$ perl -e'
print "A";
for (8,9) {
print "B";
print map { print "C"; next; print "D"; $_ } 1,2,3;
print "E";
}
print "F\n";
'
ABCBCF
但是文档没有说最后不能用于退出地图，它说它不应该使用。不清楚这是什么意思。
>不要用他们以为会影响地图和grep？
>不要这样使用它们，因为你的读者可能认为它们会影响地图和grep？
>不要这样使用它们，因为它可以让Perl处于一个懦弱状态？
>不要以这种方式使用它们，因为未来的行为可能会改变？
我不知道。
我不认为这是#3，因为我不知道使用下一个，最后和重做任何不利的副作用来离开地图或grep回调。
有趣的是，使用循环结构离开地图和grep甚至不会警告即使以同样的方式留下子。
$ perl -wE'while (1) { map { last; } 1; }'
$ perl -wE'while (1) { sub { last; }->(); }'
Exiting subroutine via last at -e line 1.