find sub { push @found, ... }
   for (reverse @found) {