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