Select Code to Download

for my $i ( 0 .. $#$eventscores ) { # forces readonly 
    for ( my $j = $i;
...
    }
    # more code unrelated to loop
}

for my $i ( 0 .. $#$eventscores ) { # forces readonly 
    for ( my $j = $i;
...
    }
    # more code unrelated to loop
}