#!/usr/bin/perl -w

use strict;

my %f;
while (<>) {
    foreach my $i (split //) {
	$f{$i}++;
    }
}

foreach my $i (keys %f) {
    print "$i: ", $f{$i}, "\n";
}
