#!/usr/bin/perl

dbmopen(%LIST, "keywords",0644) || die "can't find\n";

$newlimit = 1000;
do{
 $max = 0;
 foreach $key (keys %LIST){
     if($max<$LIST{$key} && $LIST{$key}<$newlimit){
	 $max = $LIST{$key};
	 #$maxkey = $key;
     }
 }
 $newlimit = $max;
 foreach $key (keys %LIST){
       if($LIST{$key} == $max){
		print("$max $key \n");
       }
 }
}while($max>1);

dbmclose(%LIST);                    
