use XML::simple;

my %data = { Ball=>blue,sky=>clear  };
my $hashref=/%data;
my $xml = XMLout($hashref []);