Example for "uniq"

[Chang Ming Huei]

Hi,all

If I have a set of data as following:

aa
aa
aa
bb
bb
cc

To count  the repeated data, I can use
cat xxx.dat | uniq -c 

It can get the result 
3 aa
2 bb
1 cc

But how to do it use perl ?