my ($r, $rad, $twopi, $sig, $pi, $a0, $c0);
my (@radii, @rads, @sigs);

##</code><code>##

@rads = ();
@sigs = ();