foreach $slide (@slides){ $pres -> Slides($slideIndex) = $slides[$k]; $slideIndex++; $k++};