use Data::Dumper;
my %stationen;
...
# in der schleife
push @{ $stationen{ $1 } }, { zeit => $2, alarm1 => $3, alarm2 => $4, alarm3 => $5 };
...
# am ende
print Dumper \%stationen;