use bignum (p=>1);

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

##</code><code>##

for(my $i = 1;$i<=10;$i++){
	print "i=$i\n";
}

##</code><code>##

my $i = 10;
        print "1 i=$i\n";
$i++;
        print "2 i=$i\n";
$i = $i + 1;
        print "3 i=$i\n";
$i = $i + 2;
        print "4 i=$i\n";
$i = $i + 3;
        print "5 i=$i\n";
$i = $i + 4;
        print "6 i=$i\n";
$i = $i + 5;
        print "7 i=$i\n";
$i = $i + 6 ;
        print "8 i=$i\n";

##</code><code>##

1 i=10
2 i=10
3 i=10
4 i=10
5 i=10
6 i=10
7 i=20
8 i=30