my $addline = "AAA"; my $HRR_resource = {$addline, "BBB"}; 
use XML::Twig; 
my $e = XML::Twig::Elt->new("RESOURCE", {"Id", $addline}); 
$e->set_text($$HRR_resource{$addline}); 
my $t = XML::Twig->new(pretty_print => "indented"); 
$t->set_root($e); 
$t->flush;