foreach my $attr (@ds) { my $ds_tag= new XML::Twig::Elt( 'ds'); $ds_tag->paste( 'after', $attr); my $unknown= "0"; my $unknown_tag= new XML::Twig::Elt( 'unknown_sec', $unknown); $ds_tag->paste( 'after', $attr); my $comment= " PDP Status "; my $comment_tag= new XML::Twig::Elt( '!--', $comment); $comment_tag->paste( 'after', $attr); my $min= "NaN"; my $min_tag= new XML::Twig::Elt( 'min', $min); $min_tag->paste( 'after', $attr); $ds_tag= new XML::Twig::Elt( 'ds'); $ds_tag->paste( 'after', $attr); }