How to group identical words?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello fellows! I am new to Perl world and I am trying to write a script to "group" identical words in a list of words I have.Imagine the following:

Jim
Jim
Jim
Peter
Anreas
Nick
Nick
Nick
Wolfgang
Matthew
John
John
John
Nikolai
[download]

I want to print each name and next to it, how many times I have found it in my list.

Comment on How to group identical words? Download Code

Replies are listed 'Best First'.
Re: How to group identical words? by FunkyMonk (Chancellor) on Aug 18, 2008 at 20:45 UTC
Use a hash. Go read about them in perldata. Ask again if you get stuck.	[reply]
Re: How to group identical words? by Popcorn Dave (Abbot) on Aug 18, 2008 at 20:51 UTC
Hint: look at hashes. Also, this looks a lot like homework. If it is, you're going to get a lot more help if you state that it is and you show what code you tried and where you got stuck. Revolution. Today, 3 O'Clock. Meet behind the monkey bars. I would love to change the world, but they won't give me the source code	[reply]
Re: How to group identical words? by JavaFan (Canon) on Aug 18, 2008 at 20:57 UTC
Why bother writing a program if there's already one doing this? $ uniq -c Jim Jim Jim Peter Anreas Nick Nick Nick Wolfgang Matthew John John John NikolaiJim Peter Anreas Nick Wolfgang Matthew John Nikolai ^D 3 Jim 1 Peter 1 Anreas 3 Nick 1 Wolfgang 1 Matthew 3 John 1 NikolaiJim 1 Peter 1 Anreas 1 Nick 1 Wolfgang 1 Matthew 1 John 1 Nikolai $ [download]	[reply] [d/l]
Re^2: How to group identical words? by apl (Monsignor) on Aug 19, 2008 at 11:44 UTC
Because it's his first step towards building a more complex script involving hashes?	[reply]
Re: How to group identical words? by ikegami (Patriarch) on Aug 21, 2008 at 19:49 UTC
`while (<>) { chomp; next if defined($last) && $_ eq $last; $last = $_; print; }` [download] On the other hand, if you're trying to remove duplicates, the answer is in perlfaq4.	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks