#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $cur_dir_path = '.';

opendir (H, "$cur_dir_path") || die "unable to opendir $cur_dir_path";

my @extensions = map { 
                        my @parts = split(/\./,$_);
                        @parts > 1 ? (@parts)[-1] : 'NONE'
                     }
                 grep{ -f "$cur_dir_path/$_"} readdir H;
                    
my %extension_counter;

foreach (@extensions)
{
   $extension_counter{$_}++
}

print Dumper \%extension_counter;

__END__
prints for my temp dir:
$VAR1 = {
          'sorted-txt' => 1,
          'SCP' => 1,
          'bin' => 1,
          'db' => 3,
          'txt' => 83,
          'ini' => 1,
          'dbi' => 1,
          'h' => 1,
          'jpg' => 1,
          'dat' => 6,
          'new' => 1,
          'doc' => 4,
          'stackdump' => 3,
          'out' => 1,
          'bat' => 3,
          'script' => 1,
          'NONE' => 21,
          'pl' => 462,
          'PL' => 1,
          'c' => 13,
          'zip' => 2,
          'temp' => 1,
          'cpp' => 1,
          'exe' => 11
        };