my @Radius = (
"1' or Touch",
"5'",
"10'",
"20'",
"50'",
"100'"
);
my $radius = "in a $Radius[rand @Radius] radius";