Shell Programming and Scripting

chandrashekhar
hansa
hansaben
hemant
hemantbhai
hemaprasad
mohanchandra
raj
rajchandra
rajprasad
rajshekhar
sharadbhai
shardaben

ben	2
bhai	2
chandra	2
prasad	2
shekhar	2

#! /usr/bin/perl -w
use strict;

my @suffixes = qw / # Place all the required suffixes in this list.
ben
bhai
chandra
prasad
shekhar
/;

my (%x, $s, $nm);

open I, "< inputfile.txt"; # This file contains names in which suffixes are to be looked.
for $nm (<I>) {
    for $s (@suffixes) {
        if ($nm =~ /$s$/) {
            $x{$s}++;
        }
    }
}
close I;

for (sort keys %x) {
    print "$_ $x{$_}\n";
}

$ ./test.pl
ben 2
bhai 2
chandra 2
prasad 2
shekhar 2

sort -u infile |                       # first do a unique sort of the input file and pipe that into awk as the first file (at the point of - )
awk '
NR==FNR{                               # if we are processing the first file
  if(p && $1~"^"p){                    # if a previous name exists and there is a match at the beginning 
    sub(p,x,$1)                        # then delete the match from the word
    S[$1]                              # and store the result as a suffix in array S
  }
  else
    p=$1                               # else set the previous name to $1
  next                                 # process the next line
}
{
  for(i in S) if($1~i"$"){             # This is the second file, for every name if there is a partial match at the end with
    S[i]++                             # the list of suffixes then increase their incidence..
    next                               # process the next line
  }    
}                                      # the list of suffixes then increase their incidence..
END{
  for(i in S)print i,S[i]              # Print out all the suffixes and the incidences..

}
' - infile                             # use the unique sort as the first file (-) and the file itself as the second.

prasad 2
ben 2
bhai 2
chandra 2
shekhar 2