use strict;
use warnings;
use feature "switch";
use File::Basename;
use File::Find;
use Data::Dumper;
$Data::Dumper::Sortkeys=1;

my $start_dir = "F:/"; 
my @exts;
find (\&print_all_directories, "$start_dir");

print "Parsing\n";

sub print_all_directories
{
	return if -d; 
														
    my $full_dir_path = $File::Find::name;
	my ($ext) = $full_dir_path =~ /(\.[^.]+)$/;
	my ($name,$path,$suffix) = fileparse($full_dir_path,qr"\..[^.]*$");
	push (@exts, $suffix);
}

my %counts;
$counts{$_}++ for @exts;
#print Dumper(\%counts);

foreach my $name (sort {$counts{$a} <=> $counts{$b}} keys %counts) {
printf "%s %s\n", $name, $counts{$name};
}