my $r = ($i)*(1e-6);    #radii are in microns