open (EVENTS_FILE, 't1Vevents.txt');

##</code><code>##

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

##</code><code>##

@EVENT_ARRAY = <EVENTS_FILE>;

##</code><code>##

chomp( my @EVENT_ARRAY = <EVENTS_FILE> );

##</code><code>##

foreach $event_line (@EVENT_ARRAY)
      {
      chomp;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

         push @array, $d1_value, $d2_value;

##</code><code>##

use warnings;
use strict;

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

my ( @array, %values );
while ( <EVENTS_FILE> ) {
    chomp;

    if ( /([dD][12])/ ) {
        $values{ lc $1 } = ( split /:/ )[ 1 ];
        }

    if ( /[dD]4/ ) {
         push @array, @values{ 'd1', 'd2' };
         }
    }
close EVENTS_FILE;

print @array;