sub p
{
  my($w,$v)=@_;
  for my $e(1..$#chars_all)
  {
    if($w**2+$v**2<($e*20/$#chars_all)**2)
    {return $chars_all[$e]} 
  }' '
}
[download]

If you are too far from the centre, the subroutine returns a space.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ