sub wanted { 
      print "$File::Find::dir/$hold\n" 
          if /\.(\w+)$/ and exists $exts{ lc $1 };
  }