use warnings;
use strict;

my @file1 =
    (
    '1141286452,ServerA,Disk Full',
    '1141286737,ServerB,Net Down',
    '1141286737,ServerC,Disk Full'
    );
    
my @file2 =
    (
    '1141286737,ServerB,Net Down',
    '1141286780,ServerD,Bit Bucket Missing'
    );

my %file1LookUp;

push @{$file1LookUp{$file1[$_ - 1]}}, $_ for (1..@file1);

for (@file2) {
    print "Matched $_ at line(s) @{$file1LookUp{$_}}\n" if exists $file1LookUp{$_};
}