Select Code to Download

<tables>
  <junk1 type="junk1" name="rates" requiredfields="date,rate"/>
...
              calc="CASE WHEN SUM(a) != 0 THEN round((1-power(1-sum(b/
+100*a)/sum(a),12))*100,2) ELSE SUM(0) END" required="true" cohort="fa
+lse"/>
  </xyz>
 </tables

my $xml = XMLin($xfile,ForceArray=>1)||die("unable to perform 'in' n")
+;

foreach $table (keys %{$xml->{tables}}){
print "$table\n";
}