Select Code to Download

#!/opt/bin/perl
use strict;
...
        }
    }
}

while() {

@a = [ [ 1, 2 ], [ 3, 4 ] ]
@b = [ [ 5, 6 ], [ 7, 8 ] ]

$Q = 
[ 0, 0, [ 1, 2 ], [ 5, 6 ] ]
[ 0, 1, [ 1, 2 ], [ 7, 8 ] ]
[ 1, 0, [ 3, 4 ], [ 5, 6 ] ]
[ 1, 1, [ 3, 4 ], [ 7, 8 ] ]

    elsif (($count & 63) == 0) {

        if (time > $t + 5) {

            printf "%f\n", $count / ($N * $N * (time - $t));
            last;