#!/usr/bin/perl
use strict;
use warnings;
use bigint;

for (1e9..1e9){
    print $_ * $_, $/;
}
my $x = 1e9;
print $x * $x, $/;
__END__
1e+18
1000000000000000000