for my $para (1..$doc->Paragraphs->Count) {
    $doc->Selection->GoTo( What => wdGoToParagraph, Which => wdGoToAbsolute, Count => $i );
    my $para = $doc->Selection->Paragraphs->[0];
    $doc->Selection->GoTo( What => wdGoToTable, Which => wdGoToNext );
    my $table = $doc->Selection->Tables->[0];

    ...
}