use strict;
use warnings;

open (FH1, "file1");
open (FH2, "file2");

my ($code, $event, $line);
my %data;

while (<FH1>) {
    chomp;
    # assigning code.
    $code = $_;
    while ( <FH2> ) {
        chomp;
        if ( $_ =~ /\-$code\-/ ) {
            $line = $_;
             while ( $line !~ /Event id (.*)/ ) {
                    $line = <FH2>;
                    chomp;
             }
             if ( $line =~ /Event id (.*)/ ) {
                 $data{$code} = $1;
             }
        }
    }
    seek(FH2,0,0);
}

print "OUTPUT";
print %data;