use strict;
use warnings;

my %ext;
opendir H, './';
my @files = grep { -f } readdir H;
closedir H;
for (@files) {
    my ($e) = ($_ =~ m/([^.]+)$/);
    $ext{$e}++;
}

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