## my $xml = XMLin($xfile,ForceArray=>1)||die("unable to perform 'in' n"); foreach $table (keys %{$xml->{tables}}){ print "$table\n"; }