$word->Selection->{ParagraphFormat}->{KeepWithNext} = 1;
$word->Selection->ParagraphFormat({ KeepWithNext => 1 });
$word->Selection->ParagraphFormat->KeepWithNext = 1;