Select Code to Download

Perl_sortsv_flags(aTHX_ AvARRAY(data),arrayLen+1,Perl_sv_cmp, flags);

use warnings;
use Inline C => Config =>
...
for(@$ref) {$_ = sprintf "%f", $_}

test($ref);