Damn useful script that I want online somewhere

Author: hen

scripts4java/reportcount.pl

@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+sub numerically { $a <=> $b; }
+
+while(<>) {
+ $report{$_} = $report{$_} + 1;
+}
+
+while( ($key,$value) = each(%report) ) {
+ push @report, ("$value - $key");
+}
+
+$"="\n";
+
+print reverse sort numerically @report;