$radius *= 2;
$h{radius} *= 2;
$radii[5] *= 2;