@opinions = qw( A b c d e f g h jk r e r t r e  e  e e  e  ww );

foreach ( @opinions ) {
   ++$hash{ $_ };
}

print "Word\tFrequency\n";
print "----\t---------\n";

foreach ( sort keys( %hash ) ) {
   print "$_\t", "*" x $hash{ $_ }, "\n";
}
