{
    open my $fh, '>', 'hash.i' or die $!;
    print $fh Dumper(\@alarm_details);
}