Select Code to Download

<?xml version="1.0" encoding="UTF-8" standalone="no" ?>

...
<AppProfileGuid>586e3456dt</AppProfileGuid>

</Profile>

use XML::Simple;

...
$data->{Profile}->[0]->{Application}->[0]->{Id} = $CsID;

print $xml->XMLout($data);