chomp;

##</code><code>##

chomp($event_line);  # in the loop

##</code><code>##

chomp(@EVENT_ARRAY);  # outside the loop

##</code><code>##

{
   use Data::Dumper;
   print(Data::Dumper->new(
      [
         $,,
         $",
         $\,
         $/,
         \@EVENT_ARRAY,
         \@array,
      ], [
         '$,', qw(
         $"
         $\
         $/
         $EVENT_ARRAY
         $array
      )]
   )->Useqq(1)->Dump());
}