Select Code to Download

chomp;

chomp($event_line);  # in the loop

chomp(@EVENT_ARRAY);  # outside the loop

{
   use Data::Dumper;
...
      )]
   )->Useqq(1)->Dump());
}