my $dsg_tags = $xst->{cmts}->{STBDSG}->{dsg};
for my $dsg (@$dsg_tags) {
    print "Value of tag1 :";
    print $dsg->{tag1}, "\n";
    print "Value of tag2 :";
    print $dsg->{tag2}, "\n";
}