Something like this?
Manipulate[
Graphics3D[{Red, Opacity[.5],
Table[Cylinder[{{par1, par2, par3}, {par1, par2, par3 + u[[1]]}},
u[[2]]],
{u, list}]},
PlotRange -> {{-5, 5}, {-5, 5}, {0, 20}}, Boxed -> True,
ImageSize -> {300, 300}],
{par1, 1, 3}, {par2, 1, 3}, {par3, 1, 3}]
