sub sigmalow {
    my $rad = shift;   # shift it off the front of @_
    my $rad = $_[0];   # or explicitly assign the value