my %dsg_tags;
$dsg_tags{'tag1'} = $xst->{cmts}{STBDSG}{dsg}[0]{tag1};

foreach (sort keys %dsg_tags) {
    print "$_ : $dsg_tags{$_}\n";
}

##</code><code>##

Use of uninitialized value in concatenation (.) or string at ./<script_name>.pl line <>.
tag1 :