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