Dein eigentliches Problem besteht in der ASCII-Sortierung der von glob gelieferten Dateien. Ich schlage folgende Ergänzung vor, die bis 100 Dateien funktionieren dürfte:
foreach (@bilder)
{
$j = ($i<10) ? "0$i" : $i;
rename "$_", "Daenemark$j.jpg";
print "$_ --> Daenemark$j.jpg\n";
$i++;
}
Habe es aber nicht getestet. Der Trick ist das die Dateien mit i=1..9 mit einer führenden 0 versehen werden.
EDIT1: Sorry, aber der Fehler mit dem ? ist mir glatt entgangen.\n\n
<!--EDIT|Ronnie|1067857243-->