use utf8; use bignum(p => -383); use bigint; use Encode qw/encode decode decode_utf8 encode_utf8 from_to/; my $i = ; print int( ( (1 + sqrt(3)) ** $i ) % 1000 );