for my $i ( 0 .. $#$eventscores ) { # forces readonly 
    for ( my $j = $i;
          $eventscores->[$j][0] == $eventscores->[$i][0];
          $j++ ){ 
        push (@scores, $eventscores->[$j][2] );
    }
    # more code unrelated to loop
}