while($_=getc){++$m{$_}}map{printf"$_:%3d\n",$m{$_}if/./}sort keys %m