ファイルを連番に変換するスクリプトを書いていたところ、「001」から始めたかったのに、なぜか「000」から始まっていて警告も出ていなかったのでメモ。 #!/usr/bin/env perl use strict; use warnings; use feature qw/ say /; { my $num = 1; sub closure1…