Above statement not seems to be working anymore.

What does that mean? See Basic debugging checklist

Should I separate $rxml, $ob values? or would there be alternative solution to make this statement to be compatible with current perl version.

What makes you think it isn't compatible? That fact is not in evidence :)