foreach my $thing (@stuff) {

    my $counter = 1;

    foreach my $morestuff (@otherstuff) {

         // stuff happens
         foo();
         $counter++; 

    }

}

sub foo {

    // here I want to access $counter

}