open (DAT, "@ARGV");

##</code><code>##

        open mt $DAT, '<', $ARGV[ 0 ] or die "Cannot open '$ARGV[0]' $!";

##</code><code>##

        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;
                }

##</code><code>##

        my %charCount;
        while ( my $line = <$DAT> ) {
                my @letters = $line =~ /[a-zA-Z]/g;
                foreach my $char ( @letters ) {
                        $charCount{ $char }++;
                }
        }

        foreach my $char ( keys %charCount ) {
                print "$char => $charCount{$char}\n";
        }

##</code><code>##

        close(DAT, "@ARGV");

##</code><code>##

        close $DAT;