Duplicate Sorter

Greetings: I need a Perl script that can work in BBEDIT that does the following: What I want it to do is find the duplicate lines, count the duplicates and put the number of duplicates in front of each dupe with a comma after it. If you gave the script this data below: aaa 123 bbb aaa 123 aaa It should spit out this data: 3,aaa 2,123 1,bbb Basically this is a script that removes dupes and sorts. I've written part of it (if its useful to you) and what it does is removes dupes and then sorts them.. BUT I want it to count the dupes, insert the value THEN remove dupes and sort. Let me know if your up to the challenge.. It also MUST work in BBEDIT :) Thanks! ------------------------- #!/usr/bin/perl -w use strict; my %seen; while (<>) { $seen{$_}++; } print sort keys %seen; ------------------------- Warmly Gavin ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables): a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment. b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request. 3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). ## Platform Perl, BBEDIT