Select Code to Download

sub chisquaredVal {
    my @data = @_;
...
    }
    return $chisquare;
}

#! perl -slw
use strict;
...
    ++$tests{ join '', shuffle( @data ) } for 1 .. $N;
    push @chi, chisquaredVal( values %tests );
}

print chisquare( @chi );

...

C:\test>chiSquareChiSquare -ASIZE=7 -N=2e2 -T=1e2
There's a >99.5% chance, and a <100% chance, that this data is random.