use strict;
my @alarme = ();

open (ALARMDATEI, "<Alarmdatei.txt") || die "kann Alarmdatendatei nicht öffnen : $!";
while (my $zeile = <ALARMDATEI>) {
	$zeile =~ /(.+)\t(.+)\t(.+)(\t+)(.+)/;
	%$1 = ( zeit => $2, alarm1 => $3, alarm2 => $4, alarm3 => $5);
	push (@alarme, %$1);
}
close (ALARMDATEI);