• I don't understand why you reverse the file list.
• Is the print necessary?

You could pad with zeroes using sprintf:

   $name = sprintf "%03d", $name;
[download]

or, in a more general way:

   my $padstring = '0';
   my $minlength = 3;
   $name = ($padstring x ($minlength - length($name))) . $name;
[download]