foreach my $vals (%{$xml}) {