# File:	dbmCreate.pl	
# Title: 	Data Base Management
# Author:	Mihaela Malita  
# Hash tie to a data base
#%Names = ( "Jen" => "Pace","Ethan" => "Sylvain","Erin" => "Albiero","Morgan" => "Gaythrope");
%Names = ();		# declare variable HASH now empty
# link hash with a database called dbmnames
dbmopen(%Names,"dbmnames",0644); # permission mode 0644 
# makes files dbmnames.dir and dbmnames.pag
$Names{"jen"} = "Pace";
$Names{"Ethan"} = "Sylvain";
$Names{"Erin"} = "Albiero";
$Names{"Morgan"} => "Gaythrope";
print "\nMy names is: ", %Names ,"\n\n";	  
# reads the Hash 
while (($key, $value) = each (%Names)) {
	print "$key has $value \n";
}
dbmclose(%Names);		# close the database
exit;