if (my $numeral = Scalar::Util::looks_like_number($user_radius)) {

##</code><code>##

use Scalar::Util qw(looks_like_number);

...

if (my $numeral = looks_like_number($user_radius)) {