#!/usr/bin/perl
use strict;
use warnings;

my %chars;

seek DATA, 0, 0;
while (<DATA>) {
    chomp;
    $chars{$_}++ for split //;
}

for (sort keys %chars) {
    printf "%s => %2d\n", $_, $chars{$_};
}

__DATA__