print++$a{!dbmopen%a,1,-1}