print "$LOOPCOUNTER $_\n" for @x;

##</code><code>##

print "$_ $x[$_]\n" for 0..@x-1;

##</code><code>##

print "$LOOPCOUNTER $_\n" for keys %$LoH->[$count];

##</code><code>##

print "$_ keys %LoH->[$count]{$_}\n" for 0..(keys %LoH->[$count])-1;

##</code><code>##

my $count = 0;
print $count++ . " $_\n" for keys %LoH->[$count];