#! 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";
    }
}