my $i;
foreach local $i (0 .. 5){
                    ...
}