opendir H, './';
$ext{$1} += (m/([^.]+)$/) for grep { -f } readdir H;
closedir H;

print "$_ - $ext{$_}\n" for keys %ext;