$extensions{$dot == -1 ? '' : substr( $filename,$dot )}++;