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