$picture = $Slide->Shapes->AddPicture({
            FileName => "$picture[$i]",
            LinkToFile => 0,
            SaveWithDocument => 1,
            Left =>370,
            Top => $top,
            Width => 350,
            Height => 350
        });
        
        $picture -> AnimationSettings({
                    EntryEffect => "ppEffectFlyFromLeft"});
        

##</code><code>##

            my $time = $Slide->TimeLine->MainSequence;
            my $effect = $time->AddEffect({
                Shape => $picture,
                effectId => msoAnimEffectZoom,
                });