while (<LOG>) {
    $alarm_details{ $1 } = $2 if /^(.*)=(.*)$/;
}

##</code><code>##

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

##</code><code>##

my $alarm_details_ref = do '/path/to/hash.i';

##</code><code>##

my @old_alarm_details = @{do '/path/to/hash.i'};