my $radius = -1; until ($radius >= 0){ say "What is the radius?"; $radius= ; chomp ($radius); say "radius must be >= 0. Try again..."; }