Help for this page
$XmlRef->{$keyname}{'devices'}{'dev'.$cnt}{'param'} = [ {$foo => $userref->{$key}{'hash'}{$foo}} ];
$XmlRef->{$keyname}{'devices'}{'dev'.$cnt}{'param'} = []; for my $foo(keys %{$userref->{$key}{'hash'}}) { ... , {id => $foo, content => $userref->{$key}{'hash'}{$foo}} ; $i+=1; }