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

chdir("../Bilder") or die "Kann nicht nach ../Bilder wechseln: $!"; 
my @bilder = sort glob ('*.JPG *.jpg');

my $prefix = 'Daenemark';
my $i = 1; 
foreach (@bilder) { 
    my $target;
    # vorhandene ueberspringen
    do {
        $target = sprintf ("$prefix%02d.jpg", $i);
        ++$i;
    } while -e $target;
    rename $_, $target or warn "Kann $_ nicht in $target umbenennen: $!";
    print "$_ --> $target\n"; 
}