Help for this page
@attrs = map { @{ $_->{attributes}{attribute} } } values %{ $data->{dataschemas}{dataschema} };
foreach my $dataschema ( values %{ $data->{dataschemas}{dataschema} } +) { ... # do something with the name and value } }