#!/usr/local/bin/perl

dbmopen (%c, '/export/www/log/count', 0664);

for (sort { $c{$a} <=> $c{$b} } grep (/@ARGV/o, keys %c)) {

    printf ("%10d %s\n", $c{$_}, $_);

}