open my $LOG, '<', $logfile or die $!;
my %occurrences;
while (my $line = <$LOG>) {
    if ($line =~ /^$FAILURE_SEARCH /) {
        chomp $line;
        $occurrences{$.} = $line;
    }
}
return \%occurrences