use strict;
use warnings;

use XML::Simple;
use Tie::IxHash;


tie (my %struct, 'Tie::IxHash',

 family => { 
	    name => 'Kawasaki', 
	    father => ['Yasuhisa'],
	    mother => ['Chizuko'],
	    children => {
			 girl => ['Shiori'],
			 boy  => ['Kairi'],
			}
	   }
);		  
	     
warn XMLout(\%struct);