use strict;
use warnings;

my %ext;
opendir my $dh, './' or die $!;
for (grep { -f } readdir $dh) {
   ++$ext{$1} if /\.([^.]+)$/;
}

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

##</code><code>##

use strict;
use warnings;

my %ext;
opendir my $dh, './' or die $!;
++$ext{$1} for map { -f && /\.([^.]+)$/ ? $1 : () } readdir $dh;

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