Select Code to Download

#!/usr/bin/perl
use warnings; use strict;      
...
#  N=9 : (9!)**8 = 362880**8 = 3e44, so a million/sec would take 1e31 
+years...

print "\n Number of sudokus found is " . scalar(@as) . ".\n\n"; # N=4 
+gives 288