$interval = 10;
foreach $key (keys %HoH) {
  if ($interval % $counter == 0) {
    display(\%tmp);
    $counter = 0; # reset the counter
  }

  foreach $subkey (keys %{$HoH{$key}}) {
    $tmp{++$counter} = "$key -- $subkey";
  }
}