ヅラッシュ！ by NI-Lab.

sprintf とか printf とかを使う。
連番のリストを作るときとかに便利。

# 3桁の数字を000から100まで生成
for(my $i=0; $i<100; $i++){
  my $a = sprintf("%03d", $i);
  print "foo${a}bar${a}\n";
}

C:\>perl a.pl
foo000bar000
foo001bar001
foo002bar002
foo003bar003
foo004bar004
foo005bar005
foo006bar006
foo007bar007
foo008bar008
foo009bar009
foo010bar010
foo011bar011
foo012bar012
(以下略)

Ref. sprintf Perl講座