use strict;
use warnings;
use XML::TreeBuilder;

my $xml;
my $results;
 
$xml = XML::TreeBuilder->new;
$xml->parse(do{local $/; <DATA>});

my @elements = $xml->look_down('Name', 'Column_Type');
for (@elements)
  {
  next if $_->as_text () ne 'F635 Median';
  print $_->parent ()->as_text();
  }


__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<entries>
        <enumeration ID="10" Name="Array_1_Measurement Column Metadata" >
            <attribute Name="Column_Type" >F635 Median</attribute>
            <attribute Name="Data_Type" >INTEGER</attribute>
            <attribute Name="Origin" >Feature</attribute>
            <attribute Name="Quantitation_Type" >MeasuredSignal</attribute>
            <attribute Name="Scale" >LINEAR</attribute>
            <attribute Name="LabelledExtract" >-</attribute></enumeration>
        <enumeration ID="1" Name="Array_1_Measurement Data" >
            <attribute Name="Gene" >AAC1</attribute>
            <attribute Name="F635 Median" >325</attribute>
            <attribute Name="B635 Median" >103</attribute></enumeration>
        <enumeration ID="2" Name="Array_1_Measurement Data" >
            <attribute Name="Gene" >AAC3</attribute>
            <attribute Name="F635 Median" >389</attribute>
            <attribute Name="B635 Median" >115</attribute></enumeration>
</entries>

##</code><code>##


            F635 Median
            INTEGER
            Feature
            MeasuredSignal
            LINEAR
            -