Select Code to Download

use strict;
use warnings;
...
}

print "\nTotal combinations: $count\n";

14:16 >perl 1926_SoPW.pl
0231    0241    0251    0261    0271    0281    0291    0321    0341  
+  0351
...
Total combinations: 504

14:16 >