foreach my $i ( 1 .. 4 ) {
    $slide = $ppt->Slides->Add($i, ppLayoutBlank);
}