#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Math::BigInt;

my $x = 'Math::BigInt'->new('123456789' x 5);
say $x ** 1234;