$ perl -v
This is perl 5, version 14, subversion 2 (v5.14.2) built for darwin-thread-multi-2level

$ uname -a
Darwin ganymede 11.4.2 Darwin Kernel Version 11.4.2: Thu Aug 23 16:25:48 PDT 2012; root:xnu-1699.32.7~1/RELEASE_X86_64 x86_64

##</code><code>##

foreach my $x (3 .. $rep ) {
    foreach my $y (2 .. $x-1 ) {
        foreach my $z (1 .. $y-1 ) {
            # expanded form of x*(x - a)*(x - b)*(x - c)
            # coeffs are in an array
            $haystack{"$x, $y, $z"} =  [
                poly_roots(
                    poly_derivative(
                        1, -$x - $y - $z, $x*$y + $x*$z + $y*$z, -$x*$y*$z, 0
                    )
                )
            ];
        }
    }
}