use strict;
use warnings;

sub counted_for (&@) {
  local our $LOOPCOUNT=-1;
  my $sub = shift;
  for (@_) {
    ++$LOOPCOUNT;
    $sub->();
  }
}

# Define a modestly complicated structure to loop through
my $LoH;
my $count = 3;
@{$LoH->[$count]}{'a'..'e'} = ();
my @y = ('X'..'Z');
counted_for {
  print "$LOOPCOUNT: $_\n";
  counted_for { print "  $LOOPCOUNT $_\n" } keys %{$LoH->[$count]};
} @y;