foreach my $para (in ($Doc->Paragraphs())) {