#sub countChar() {
#       open (DAT, "@ARGV");
#       print "Character count\n";
#       while ($line = <DAT>){
#       my @line_words = split (//, $line);
#               foreach my $char (@line_char){
#                       if ($charCount{$char}){
#                               $charCount{$char}++;
#                       }else {
#                               $charCount{$char}=1;
#                       }
#               }
#       }
#       foreach $char (keys %charCount) {
#       print "$char => $charCount{$char}\n";
#       }
#       close(DAT, "@ARGV");
#}
#foreach $char (keys %charCount) {
#       print "$char => $charCount{$char}\n";
#}


sub countChar() {
        open (DAT, "@ARGV");
        print "Character count\n";
        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;
                }
        foreach $char (keys %charCount) {
        print "$char => $charCount{$char}\n";
        }
        close(DAT, "@ARGV");
        }
}