#!/usr/bin/perl

foreach $p ( 2..5 ) {
  print sprintf ("%0${p}d\n", $p);
}
__END__
prints:
02
003
0004
00005