foreach $i (@a) {
    chomp($i); # chomp the trailing newline, It shows the linenumber
    if ($i eq "") # Search for empty line
    {  
                print "Find empty line $. \n"; #Kontrolle funktioniert, ausser die Angaben der Zeilennummer
        if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit [0-9].[0-9]/)
            {
                print "Find Geburtuhrzeit line $. \n"; # Kontrolle Funktioniert, ich möchte eine festes Datum suchen!, hier wäre zum Beispiel: Geburtuhrzeit 1999.07.31.21.29.53
            $h{$b[0]} = [];
            foreach $u (1 .. $#b) # foreach (startwert..... $#array)
            {
                push ($h{$b[0]},($b[$u])); # push (ARRAY, newLIST), hat nicht geklappt!
            }
        }
        @b = ();
        next;
    }
    push(@b, $i);
}