Select Code to Download

use Data::Printer;
p $data;

\ {
    node   [
...
        }
    ]
}

foreach my $node (@{$data->{node}}) {
    print $node->{name}.": ".$node->{text}."\n";
}

1st node: Text of 1st node
2nd node: Text of 2nd node
3rd node: Text of 3rd node

my $xml = XML::Simple->new( KeyAttr => 1, ForceArray => 0, KeepRoot =>
+ 1 );