my $max = 10;
my @values = 1 .. $max;
my @values_mixed = shuffle(@values);
my @top = topNbsAB(5, sub { $a <=> $b }, \@values_mixed);
print join(" ",sort { $a <=> $b } @top),"\n";

##</code><code>##

1 1 1 1 9

##</code><code>##

    // Special case -- too few values provided. Just return them.
    if (len+1 <= n) {
       for( i = 0; i < len; i++ ) {
          SV *val = *av_fetch( data, i, 0 );
          PUSHs( newSVsv( val ) );
       }
       PUTBACK;
       XSRETURN(len+1);
    }