!/usr/bin/perl
use strict;
use warnings;
my $file_in='test.txt';
my $file_out='test.out.txt';
my %order;
{
  open(my $fh, '<', $file_in) or die("ERROR open $file_in ($!)\n");
  while(my $line=<$fh>)
  {
    if(my ($name)=$line=~/(\w+)\.xml\.gz/)
    { push(@{$order{$name}},$line); }
  }
  close($fh);
}

my @data;
for my $arr (values(%order))
{
  shift(@$arr) while(@$arr>2);
  push(@data,@$arr);
}

{
  open(my $fh, '>', $file_out) or die("ERROR open $file_out ($!)\n");
  print $fh @data;
  close($fh);
}

!/usr/bin/perl
use strict;
use warnings;
my $file_in='test.txt';
my $file_out='test.out.txt';
my @data;
{
  open(my $fh, '<', $file_in) or die("ERROR open $file_in ($!)\n");
  while(my $line=<$fh>)
  {
    push(@data,$line);
    if(my ($name)=$line=~/(\w+)\.xml\.gz/)
    { push(@{$order{$name}},$#data); }
  }
  close($fh);
}

for my $arr (values(%order))
{
  while(@$arr>2)
  {
    my $pos=shift(@$arr);
    splice(@data,$pos,1);
  }
}

{
  open(my $fh, '>', $file_out) or die("ERROR open $file_out ($!)\n");
  print $fh @data;
  close($fh);
}

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

my @lines = ...;  # Ausgagsliste
my %hits;   
foreach my $l (@lines) {
  $l =~ m/#(\w+)\.xml/;
  push @{$hits{$1}},$l;   # Hash land ->[line1,line2...]
};

my @result;
foreach my $k (keys %hits) {
  if (@{$hits{$k}} > 2) {
    push @result,@{$hits{$k}}[-2,-1];    # letzte 2 Einträge
  } else {
    push @result,@{$hits{$k}}            # alle Einträge für land
  }
};