my @lines = ...;  # Ausgagsliste
my %hits;         # wieviele Einträge pro Land
my @result = reverse               # 4. zurück zur Ausgangs-Reihenfolge
             grep {/#(\w*)\.xml/;  # 2. ländername extrahieren
                   $hits{$1}++ <2} # 3. pro name die ersten 2 durchlassen
             reverse @lines;       # 1. Reihenfolge umkehren