use bignum (p=>1);

for(my $i = 1;$i->blt(15);$i->binc()){
	print "i=$i\n";
	
}