为何Perl 5.26.1不再对排序块外使用$a的情况发出警告？

核心原因 #

Perl对$a和$b的警告规则在5.22版本左右（含5.26.1）做了调整：将这两个sort专用的特殊包变量，从「变量仅使用一次」（once）的警告检查中排除了。而5.18.2属于更早的版本，还保留着对$a/$b的常规警告逻辑，所以会触发你看到的$main::a仅被使用一次提示。

设计依据 #

Perl官方文档（perlvar）明确说明：

$a和$b是使用sort()时的特殊包变量，即使启用strict 'vars'也无需声明；不要用my $a或my $b将其词法化，否则无法在sort比较块或函数中使用。

因为$a/$b是sort功能的核心特殊变量，开发过程中用户可能会在sort块外临时调试使用，或者像你这样不小心笔误写出。如果保留常规的「仅使用一次」警告，会频繁产生无关的干扰信息，影响sort相关代码的开发体验。因此核心团队决定调整警告规则，对这两个变量网开一面。

对你遇到场景的解释 #

你在5.26.1中误将$an写为$a，由于新版本跳过了$a的once警告检查，所以没收到提示；而5.18.2还未做此调整，所以触发了警告。

建议 #

虽然Perl不再警告，但绝对不要在sort块外使用$a/$b——这类笔误很难排查，会给后续维护埋下隐患。临时变量尽量用$tmp、$val这类无特殊含义的名称，避免和Perl内置特殊变量冲突。

内容的提问来源于stack exchange，提问作者U. Windl