my ($xml) = values %$data;
  # You can now write the contents of $xml to a file...