$ext{$1} = $ext{$1} + (m/([^.]+)$/);