Select Code to Download

#!/usr/bin/env perl

...
    my $newsample = $original_sample->slice($indices);
    return $newsample;
}

# get a random sample with replacement from input vector
# 2nd param is a RNG object which will select N random
...
    $sorted_means->at(int(0.05*$M)),
    $sorted_means->at(int(0.95*$M))
];

#!/usr/bin/env perl

...
    }
    return $array_to_return_results;
}