Using foreach loops with hashes.
@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"; }