Select Code to Download

$tagstack{requirements}->[1] = {
   text       => "A node name",
...
                  contactnumber => "555-1212"
                  }
}

#!/usr/bin/perl -wT

...
$tagstack{requirement} = \@temp;
# show the finished product
print Data::Dumper::Dumper(\%tagstack);

<root>
<requirement contactname="Joe Average">A power cord.</requirement>
<requirement contactname="Jane Smith" contactnumber="555-1212">A node 
+name</requirement>
</root>

$VAR1 = {
          'requirement' => [
...
                             }
                           ]
        };