sub_from_xs(my $num, my $str);