sub wanted {
    return unless -f;
    /(?<!^)[.]([^.]+)$/;
    ++$stats{$File::Find::dir}{$1 || ''};
}

##</code><code>##

++$stats{$1 || ''};