$pname = "...";
for my $i (0..4) {
  $slide = $ppt->Slides->Add(...);
  $slide->Shapes->AddOLEObject(...);
}