my (%pwds, %boxes); 
tie (%pwds,  'FileHash', "$dir/pwds"); 
tie (%boxes, 'FileHash', "$dir/boxes");