open (EVENTS_FILE, 't1Vevents.txt');
@EVENT_ARRAY = <EVENTS_FILE>;
close (EVENTS_FILE);

foreach $event_line (@EVENT_ARRAY)
      {
      chomp;
      if ($event_line =~ m/\s*d1/i)
         {
         ($d1_title,$d1_value) = split(/:/,$event_line);
         }
      if ($event_line =~ m/\s*d2/i)
         {
         ($d2_title,$d2_value) = split(/:/,$event_line);
         }
      if ($event_line =~ m/\s*d4/i)
         {
         @array = (@array,$d1_value,$d2_value);
         }
      }
print @array;


##</code><code>##

v1v2
v1v2
##</code><code>##

v1
v2
v1
v2