sub find_result {
   my $number = shift;
   my $prefix_length = length($number);
   my $result;

   1 until defined($result = $hash{substr($number, 0, $prefix_length--)})
      or $prefix_length <= 0;

   return $result;
}