my $counter = 0;
... map { ++$counter; ... } ...