my %alarm_details;
my @files = </TELECOM_PROJ_MAIN/sas/tmp/t*>;

foreach my $file (@files) {
    open LOG, "<", $path or die "Can't open $file:$!\n";
    $alarm_details{filepath} = $file;

    while (<LOG>) {
        chomp;
        my ($key, $value) = split /=/, $_;
        $alarm_details{filepath}{$key} = $value if ($key);
    }
    close LOG;
}