Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<results>
...
        </keyword>
    </keywords>
</results>

  my $xml = new XML::Simple (KeyAttr=>[]);
...
  $SQLX->finish();
  }

foreach $var (@{$TopList->{taxonomy}->{category}})
         {do something;}
        else foreach $var ($TopList->[taxonomy}->{category})
         {do the something this way;}