22:38 >perl 604_SoPW.pl

With two foreach loops:

3.83375999244748e+021
4.60051199093697e+022
5.52061438912436e+023
1.90049637748808e+022
2.4706452907345e+023
3.21183887795486e+024
8.36682554252848e+022
1.17135557595399e+024
1.63989780633558e+025

With an inner C-style for loop:

3833759992447475122176
46005119909369701466112
552061438912436417593344
19004963774880799438801
247064529073450392704413
3211838877954855105157369
83668255425284801560576
1171355575953987221848064
16398978063355821105872896

22:38 >