for my $i (0 .. 5006) {
    ...
}