Your program doesn't have 39 lines. Please show real program.

Also there is no need in double quotes. You can write just:

$xml->{'dut'}->{'model'} = $ProdShortName;
[download]