#!/usr/bin/perl

foreach $line (<>) {
  foreach $let ('A'..'I') {
    $ct{$let}++ if ($line =~ /$let/);
  }
  $all++;
}

foreach $let ('A'..'I') {
  $r = $ct{$let}/$all;
  print "$let $ct{$let} $r\n";
}