use strict; use warnings; my $number=8; no strict; # could have also used "no strict vars" $i=0; #if i remove my keyword it gives error (not now) for($i=0;$i<20;$i++) use strict; # back to strict { print "present value of the number is:"; print $number++; print "\n"; } #### use strict; no strict vars; use warnings; $number=8; # look MA, no MY! $i=0; #if i remove my keyword it gives error -- not NOW! for($i=0;$i<20;$i++) # here either { print "present value of the number is:"; print $number++; print "\n"; } #### #!/usr/bin/perl -w our ( $number, $i ); use strict; $number=8; # NOTE the absence of my $i=0; # AGAIN no my used here for($i=0;$i<20;$i++) # OR here { print "present value of the number is:"; print $number++; print "\n"; }