while (($key,$value) = each(%{$parts_jsonlb->[$slb]}))
				{
				   #elog(NOTICE, 'Key '.$key .' Value '.$value);
				   #elog(NOTICE, 'REfernece '. ref($value) );
				   if (ref($value) eq 'HASH')
					{%l_pa = (%l_pa, $value);}
				   else	
					{
					elog(NOTICE, 'Key '.$key .' Value '.$value);
					my %perm = ($key => $value);
					elog(NOTICE, 'l_pa '.Dumper(%perm));
					%l_pa = (%l_pa,%perm);
					}
	
				}