print (" $testar{ 'reg1' }{ 'desc' } \n");