while ($line = <DAT>){
                do (@word = split (/\W/, $line));
                        foreach $word (keys %charCount){
                                do (@letter = split (/\w+/, $word);
                                        $letter = (keys %charcount)}
                if ($charCount){$char}){
                        $charCount{$char}++;
                }else {
                        $charCount{$char}=1;
                }