$pictures[$picture_indx] = $pictures[$picture_count]->Read(file=>\*IMAGE_IN) or die("Error reading file $filepath $!");