{
nf = 0
while(nf <= NF)
      {
      nf++        
        s = split($nf,field,"_")
        tabella[$nf]++
        }
}
END {
for(word in tabella)
      {
      z = split(word,fiel,"_")
      printf "%-25s %5d %s\n", fiel[1], tabella[word], fiel[2]
      }
}