Example: copying from Excel to Word 

# loop through organisations

foreach my $org ( sort keys (%orgs)) {

    # select an organisation in the Pivot page field
    $pt->PivotFields("Organisation")->{CurrentPage} = $org;

    # copy whole table from Excel into Word
    $pt->RowRange->Select;
    $ex->Selection->Copy;
    $wd->Selection->PasteExcelTable({LinkedToExcel => False,
        WordFormatting => False, RTF => False});

    # label the table
    $wd->Selection->InsertCaption({Label => "Table",
        TitleAutoText =>"", Title =>"",
        Position => wdCaptionPositionBelow});
    $wd->Selection->TypeText(":");
    $wd->Selection->Font->{Bold} = False;
    $wd->Selection->TypeText(" $orgs{$org}");
    $wd->Selection->TypeParagraph;
}