Help for this page
while(($key, $value) = each(%projects)) { print "DEBUG $key = $value\n"; }
%projects = ( Projects => { ... "Project3" => { } )