#!/usr/bin/perl -w

use strict;
use warnings;

my %wc;

while (<>) {
  while (/(\p{IsAlpha}+)/g) {
    my $word = $1;
    my $last = substr $word,-1;
    print "\ncouneting [$last] for word [$word] ";
    $wc{lc($last)}++;
  }
}

for my $l (sort { $wc{$a} <=> $wc{$b} } keys %wc) {
  printf "\n%5d %s", $wc{$l}, $l;
}
print "\n";