use XML::Simple qw(XMLout);
$samstr =  source=>[{abc=>[{uname=>[$VAR1],dbcrdn=>[$VAR2],paridn=>[$VAR3],osath=>[$VAR4],}]
$xmlstr = "{".$samstr."}";
print XMLout($xmlstr,RootName => "root");