TIMTOWTDI

use File::Basename;

for $a (@a)
{
($name, $path, $type) = fileparse ($a, qr/\..*/);
$name = sprintf("%03d", $name);
$a = "$name"."$type";
}
[download]