#! perl -slw
use strict;
use File::Find;

my %extns;

find( sub{ $extns{ lc($1) }++ if -f _ and m[\.([^\.]+?)$]; }, @ARGV );

print "$_ => $extns{ $_ }" for sort keys %extns;