Programming Perl

Programming Perl 3 Larry Wall 0-596-00027-8 Perl & 1 Sean Burke 0-596-00178-9 Anonymous Perl 1 0-555-00178-0 ##

##

my $xl=XMLin('C:/perlpractice/dec8.xml',ForceArray=>1);
for$key(keys %$xl)
{
for $s(keys %{$xl{$key}})
{
print $s;
}
}