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