Select Code to Download

<exec>
    <tc id="001.001" version="">
    </tc>
</exec>

foreach my $tc (@{$xml->{tc}}) {
    if ($tc->{id} eq '001.001') {
...
              };
    }
}