Your question isn't so clear, do you want to show 10 matches, do something and than show the next 10. If that's what you need than you can try:

my $j = 0;
while (1) {
  for (my $i = 0; $i < 10 && $j < @found; $i++) {
    $j++;
    print $found[$j], "\n";
  }
  # do something
  last if ($j == @found);
}
[download]

UPDATE: thinker's suggestion is better, I didn't understood you question, sorry.

Hotshot