my $perl = XMLin($xml);

Calling XMLin() without specifying any options is often a bug waiting to happen, see this node.

Also, when looking for meaningful variable names, it might help to bear in mind that XMLin will throw away the top-level XML element name by default - why not use that:

  my $NewDataSet = XMLin($xml, KeyAttr => [], ForceArray => ['Table'])
+;
[download]

Then when you index into the data, the Perl symbols and the XML element names correspond naturally:

  my $table = $NewDataSet->{Table};
  my $table_count = @$table;
[download]