dbmopen%a,1,-1;$a{$$}.=eval$a{$$-2}?print:"$_;"for<>