>>339
perlのsortの場合、$a、$b固定になってる
https://perldoc.jp/func/sort

my @articles = sort {$a cmp $b} @files;

perlの場合、関数の引数は$_[0]、$_[1]で取れるのだが
そうすると、sortの外の$_[0]、$_[1]になってしまう。

文字列にしてevalしちゃえば同じことはできると思うがそれでも長くなっちゃうしな。
my @articles = sort '$_[0] cmp$_[1]' @files;

このために$a、$bをグローバル変数としているようだが、Perlはダイナミックスコープを
使えるからローカル変数にできるんじゃないかな？ 互換性のためにそうなっているのかも