my @zipimages;
$zipimages[0] = 'Patch/Archive/picture1.tif';
$zipimages[1] = 'Patch/Archive/picture2.tif';

my $zip = Archive::Zip->new("$picturedir\\$picturefile");

    foreach (@zipimages){
            $tempref = $zip->extractMember( $_, picture.tif)
    }