foreach my $dataschema ( values %{ $data->{dataschemas}{dataschema} } )
{
    foreach my $attr ( @{ $dataschema->{attributes}{attribute} } ){
        print "category is: ",
              $attr->{category},
              "\n";
    }
}