What I usually do when using Find is the following:

$RootDir = "/www/htdocs";
find(\&wanted, $RootDir);

foreach (@list) {
  ...do some...
}

sub wanted {
  my $arg = $_
  if ( $arg =~ /\.html/ ) {
    push @list, $arg;
  } 
  $_ = $arg
  return;
}
[download]

Concluded. I put $_ into $arg and put it back later, don't exactly know why it works, but compared to not doing that, it was better. {looks puzzled}

Sinister greetings.