use warnings;
use Inline C => Config =>
    CLEAN_AFTER_BUILD => 0,
    BUILD_NOISY => 1;

use Inline C => <<'END_OF_C_CODE';

    void test(AV* data) {

      I32 i;
      I32 arrayLen;
      float retval;
      SV** pvalue;

      arrayLen = av_len(data);

      sortsv(AvARRAY(data),arrayLen+1,Perl_sv_cmp);

      for (i = 0; i < arrayLen+1; i++) {

        pvalue = av_fetch(data,i,0); 
        printf("%s \n",SvPVX(*pvalue));
      }
    }

END_OF_C_CODE

my $ref = [ 5.0e-5,4.2e-5,4.3e-5,4.4e-5,4.4e-5,4.2e-5,4.2e-5,4.0e-5];

for(@$ref) {$_ = sprintf "%f", $_}

test($ref);