while(($key, $value) = each(%projects)) {
    print "DEBUG $key = $value\n";
  }

##</code><code>##

%projects = (
  Projects => {
   "Project1" => {
      version   => "3.41",
      status => "nul",
      components => {
	 "Software" => {
	    name => "controller",
	    label => "RC_1.01",
	    subComponents => {
	      "Database" => {
	        version = "1.01",
	       }
	       "SerialComms" => {
 	         version = "2.13",
	       }
           }

           "Firmware" => {
 	      name => "I/O Interface",
  	      label => "RC_1.21",
	    }
       }
     }

     "Project2" => {
      }
     "Project3" => {
      }
)