Select Code to Download

open (EVENTS_FILE, 't1Vevents.txt');

open EVENTS_FILE, '<', 't1Vevents.txt' or die "Cannot open 't1Vevents.
+txt' $!";

@EVENT_ARRAY = <EVENTS_FILE>;

chomp( my @EVENT_ARRAY = <EVENTS_FILE> );

foreach $event_line (@EVENT_ARRAY)
      {
      chomp;

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

      if ($event_line =~ m/\s*d1/i)

         @array = (@array,$d1_value,$d2_value);

         push @array, $d1_value, $d2_value;

use warnings;
use strict;
...

print @array;