my %extensions;
for my $file (sort @files) {
  my @split = split(/\./,$file);
  my $key = $split[1];
  my $num = 1;
  if (exists $extensions{$key}) {
    $extensions{$key} += $num;
  }
  else {
    $extensions{$key} = $num;
  }
}
while (my ($key,$value) = each %extensions) {
  print $key." - ".$value."\n";
}