> # this bit assumes the numbers of the files are zero
   > # padded to three zeroes... there is surely a better
   > # way to do this
   > my $f = substr("000".$i,-3,3);

##</code><code>##

    my $f = sprintf "%03d", $i;