#!/usr/bin/perl -w 

use strict;

my $inputfile = $ARGV[0];
my $outputfile = $ARGV[1];

open(IN,"<$inputfile") || die "Can't open file:$inputfile\n";
open(OUT,">$outputfile") || die "Can't open filea;$outputfile\n";
my $header = <IN>;

my %count;
while(my $line = <IN>)
{
    chomp $line;
    print "line:$line\n";
    my $offset = 0;

    while($offset < length($line))
    {
	my $chr = substr($line,$offset,1);
	$count{$chr}++;
	$offset++;
    }
} 
close(IN);

foreach my $key(sort keys %count)
{
    my $c = $count{$key};
    print OUT "$key:$c\n";
}

close(OUT);