use warnings;
use strict;
use charnames();

my $filename = 'readme.txt';

open my $fh, '<', $filename or die "Arrgh!: $!\n";

my %ch;

while (<$fh>) {
    $ch{$_}++ for split //;
}

push my @display, split //, q/.,[]-&abcde/;
push @display, "\n", "\x3d", "\t";

printf "%6s - %s\n", $ch{$_} ? $ch{$_} : 0, charnames::viacode ord for @display;