sub dborder
{
	dbmopen(%order, "order", 0644) || die "Unable to open db : $!";
	
		$order{'o'} = $order;	
		$order{"name"} = $name;
		$order{"address"} = $add;
		$order{"city"} = $city;
		$order{"state"} = $state;
		$order{"zip"} = $zip;
		$order{"country"} = $country;
		$order{"email"} = $email;
		$order{"cost"} = $cost;
 		$order{'a'} = [@food];
		$order{'b'} = [@fries];
		$order{'c'} = [@onionrings];
		$order{'d'} = [@drink];
		$order{'o'}++;
	
	dbmclose(%order) || die "Cannot close dbm file.\n";
}