Select Code to Download

use strict;
use warnings;
...
for $i ( 0 .. $#rads ) {
    printf "rad= %8.3g  sigma= %8.3g\n", $rads[$i], $sigmas[$i];
}

use strict;
use warnings;
...
    my ( $r ) = @_;
    2 * pi * ($r**2);
}