my $xs = new XML::Simple();
my $tree = $xs->XMLin('vxml_tree.xml');
my $vxml = $tree->{system_1};
foreach my $form (sort keys %{$vxml->{forms}})
{
   ...
}