Select Code to Download

foreach my $id (0..$x)
{
...
  }
  $ret{$ids{$id}}{'count'}++;
}

while(my($key,$val) = each(%ret))
{
...
  }

}

Loop #1: a
Loop #2: a.b
Loop #3: a.b.c
Loop #4: a.b.c.d. (skipped)