splice @picturelist, $p, 1;