#! perl
use strict;
use warnings;
use bigint;

print "\nWith two foreach loops:\n\n";

for my $i (12 .. 14)
{
    for my $j (20 .. 22)
    {
        print $i ** $j, "\n";
    }
}

print "\nWith an inner C-style for loop:\n\n";

for my $i (12 .. 14)
{
    for (my $j = 20; $j <= 22; ++$j)
    {
        print $i ** $j, "\n";
    }
}

##</code><code>##

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 >