#!/usr/bin/perl

use warnings;
use strict;

my $infile;
my $outfile;
my $i;
my $u;

open($infile, '<', 'Beispiel_Liste.txt') or die "$!";
my @a = <$infile>;
close($infile);

my @b = ();
my %h;

foreach $i (@a) {
    chomp($i);
    if ($i eq "") {
        if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit/) {
            $h{$b[0]} = [];
            foreach $u (1 .. $#b) {
                push($h{$b[0]}, $b[$u]);
            }
        }
        @b = ();
        next;
    }
    push(@b, $i);
}

my @k = sort(keys(%h));

open($outfile, ">", "Sortiert.txt") or die "$!";

foreach $i (@k) {
    print "$i\n";
    print $outfile "$i\n";
    my @harr = @{$h{$i}};
    foreach $u (@harr) {
        print "$u\n";
        print $outfile "$u\n";
    }
    print "\n";
    print $outfile "\n";
}
close($outfile);