use XML::Simple qw{XMLin};
print keys %{XMLin("<root><x>1</x><y>2</y></root>")};