$samstr = {source=>[{abc=>[{uname=>$VAR1,dbcrdn=>$VAR2,paridn=>$VAR3,osath=>$VAR4,}]}]};