use strict;
use warnings;
use Benchmark qw(timethese);

sub orig {
   for my $i ( 0 .. 9 ) {
      for my $j ( 0 .. 9 ) {
         for my $k ( 0 .. 9 ) {
            for my $l ( 0 .. 9 ) {
               my $filename = "$i$j$k$l";
            }
         }
      }
   }
}

sub yourmum {
   for ( 0 .. 9999 ) {
      my $filename = sprintf "%04d", $_;
   }
}

sub marshall {
   for ('0000' ... '9999') {
      my $filename = $_;
   }
}

orig();
yourmum();
marshall();

timethese 50000, {
   Orig     => sub { orig() },
   YourMum  => sub { yourmum() },
   Marshall => sub { marshall() },
};

##</code><code>##

Benchmark: timing 50000 iterations of Marshall, Orig, YourMum...
  Marshall: 25 wallclock secs (25.16 usr +  0.00 sys = 25.16 CPU) @ 1987.52/s (n=50000)
      Orig: 39 wallclock secs (38.83 usr +  0.00 sys = 38.83 CPU) @ 1287.73/s (n=50000)
   YourMum: 40 wallclock secs (40.08 usr +  0.00 sys = 40.08 CPU) @ 1247.57/s (n=50000)