foreach (keys %file){
  $stats{$file{$_}{FILETYPE}}++;   
  $stats{$file{$_}{FILETYPE}."_".$file{$_}{VOICEOVER}}++;  
}

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

##</code><code>##

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