'gobi'          => {
              'osversion'     => '6.5',
              'osname'        => 'irix',
              'address'       => '10.0.0.102'
          },

##</code><code>##

mother => ['Mary']

##</code><code>##

mother => qr/Mary/

##</code><code>##

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);