If you're willing to scribble away the value of $. in a variable at the beginning of the body, you might as well write:

my ($i, $j);
foreach .... {
    ++$i;
    foreach .... {
        ++$j;
    }
}
[download]