Select Code to Download

use XML::Simple;

...
    </attributes>
  </dataschema>
</dataschemas>

foreach my $dataschema ( values %{ $data->{dataschemas}{dataschema} } 
+)
{
...
              "\n";
    }
}