$/=dbmopen%a,1,-1;print%a;%a=<>