Select Code to Download

use vars '@r';

...
Std. Dev.   |   6.404 |   6.397 |   5.746 

=cut

sub FAQ_FY {
    my $array = shift;
...
Std. Dev.   |   7.305 |   6.105 |   5.998 

=cut

#!/usr/bin/perl -ws
use strict;
use vars qw/$size $iter/;
...
#     sqrt( ($d{FAQ_FY}{Ex2} - ($d{FAQ_FY}{Ex}**2/5040))/5039 ),
#     sqrt( ($d{shuffl}{Ex2} - ($d{shuffl}{Ex}**2/5040))/5039 ),
#     sqrt( ($d{supffl}{Ex2} - ($d{supffl}{Ex}**2/5040))/5039 );