thanks appreciated your help.2 things here, when I executed the script with the same sample you have provided, I got this errors:

Name "main::DATA" used only once: possible typo at d:\xml test\NewTria+l.pl line
10.
not well-formed (invalid token) at line 1, column 4, byte 4 at C:/stra+wberry/perl/vendor/lib/XML/Parser.pm line 187
at d:\xml test\NewTrial.pl line 54