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