my $length = $total_length - length($prefix);
my $format = "${prefix}%0${length}d";

##</code><code>##

my $format = $prefix . '%0' . $length . 'd';

##</code><code>##

$from .. $to

##</code><code>##

map sprintf( $format, $_ ), ANONYMOUS_LIST

##</code><code>##

for (ANONYMOUS_LIST) {
   STRING = sprint( $format, $_ );
   put STRING into ANOTHER_ANONYMOUS_LIST;
}