Select Code to Download

#!/usr/bin/perl -w

...
key4 , 1
key3 , 1
size of hash: 4

Now there are two passes over the list, and the situation isn't going 
+to get any prettier from here. What you want is basically a histogram
+ of the data, and you can get that with a hash:

...
I could also delete the duplicates and end up with a list of the uniqu
+e tags:

    @unique = keys %histogram;