#!/usr/bin/perl
while (<>) {
    chomp;
    $c{$_}++ for (split //);
}
printf("%02x : %s : %d\n",ord($_),$_,$c{$_}) for(sort keys %c);