foreach my $event_line ( @EVENT_ARRAY )
      {
      chomp $event_line;