Select Code to Download

foreach (keys %file){
  $stats{$file{$_}{FILETYPE}}++;   
...
foreach (keys %stats){
  print "$_ => $stats{$_}\n";
}

$stats{$file{$_}{FILETYPE}}++ for keys (%file);