Perl - Problema incremanetar valor alfanumérico

Tengo un par de valores introducidos por teclado:

print " inicio [4 digitos]: ";
my $inicio = <STDIN>;
chop ($inicio);

print " final [4 digitos]: ";
my $final = <STDIN>;
chop ($final);

Inicio siempre es menor que final. Pongamos que meto inicio=9 y final=11. Lo que quiero es crear los siguientes ficheros:

for (my $i=$inicio; $i<=$final; $i++)
{
open (OUT, ">", "read_".$i.".xml") or die "No ";
#ETC ...
}

Pero en lugar de:

read_0009.xml
read_0010.xml
read_0011.xml

Me sale:

read_0009.xml
read_10.xml
read_11.xml

¿Alguien sabe cómo conseguir lo que quiero?

Ya te respondimos en el otro foro, pero aquí te doy otra solución alternativa.

Si en vez de 'read_0009.xml' pudieras trabajar con 'read0009.xml' (quitar el guión bajo), entonces se podría utilizar la magia del incremento en literales:

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $inicio = 9;
my $final = 15;

$inicio = sprintf "read%04d", $inicio;
$final = sprintf "read%04d", $final;

while ( $inicio ne $final ) {

print "$inicio.xml ";

$inicio++;
}