in reply to help me in perl script to create hash and print some data.
Have a look at XML::Rules. Examples may be found right here on PerlMonks.
Jenda Enoch was right! Enjoy the last years of Rome.