@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";}