use XML::Simple;

$data  = XMLin( \*DATA, KeepRoot => 1, ForceArray => [ qw/attribute/ ] );

@attrs = map { $_->{category} }                        # We want the category value 
         map { @{ $_->{attributes}{attribute} } }      # for each attribute
         values %{ $data->{dataschemas}{dataschema} }; # in all dataschemas.

print "@attrs\n";

__DATA__
<dataschemas>
  <dataschema name="varyingName1">
   <attributes>
    <attribute category="one" fair="no" />
   </attributes>
  </dataschema>
  <dataschema name="varyingName2">
     <attributes>
        <attribute category="" parser="CSVParser" />
        <attribute category="APS" internalCategory="aps" />
        <attribute category="ASC" internalCategory="asc" />
        <attribute category="ASMT" internalCategory="asmt" />
        <attribute category="LE" internalCategory="l&amp;e" />
        <attribute category="NCO" internalCategory="nco" />
        <attribute category="NEED TITLE" internalCategory="need title" />
        <attribute category="New Need ID" internalCategory="need id" />
        <attribute category="SUMMARY OF DELIVERABLES" parser="TextParser" extract="true" segmentation="hard" />
    </attributes>
  </dataschema>
</dataschemas>

##</code><code>##

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