open (FILE, "file.txt") || die "Can't open data file.";

while (<FILE>) {
   @array_codes = split /\W+/;
   foreach $code_key (@array_codes) {
           $codes{$code_key}++;
           } 
}
printf "$_\t$codes{$_}\n" for keys %codes;