my ($num, $str) = sub_from_xs();