my @radsigma;
for ( my $i=1; $i<=100; $i+=2 ) {
    my $sig;
    if ( $r <2 e-5 ) {
        $sig = sigmalow($r);
    }else{
        $sig = sigmahigh($r);
    }
    push @radsigma, [ $r, $sig ];
}