for my $i ($i .. $#{$eventscores} ) {