#!/usr/bin/perl -l

use strict;
use warnings;

use bigint;

my ($i, $j) = (2,100);
while ($i <= 2) {
    while ($j <=100) {
        print $i**$j;
        $j++;
    }
    $i++;
}