my $i = 0;
my $j = $i;
 
       for ( $i ; $i <= $#eventlist ; $i++ ){
          print "i is $i, j is $j\n";
          my ($subj,$date) = split(',',$eventlist[$i]);
          if ( $subj eq "Event B" ){
             while ( $subj ne "Event A" ){
                 $i++;
              ($subj,$date) = split(',',$eventlist[$i]);
             }
          print "i is $i, j is $j\n";
             $j = $i;
          print "i is $i, j is $j\n";
             my ($str,$date1) = split(',',$eventlist[$i]);
             my ($subj2,$x) = split(',',$eventlist[$j]);
             while ( $subj2 ne "Event B" ){
                 $j++;
             ($subj2,$x) = split(',',$eventlist[$j]);