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;