use warnings;
use strict;
use PadWalker qw/peek_my/;
use Data::Dump;

my $A;
my $B = 0;
dd peek_my(0);
for my $i ( $B .. 3 ){
	my $C = 3;
	dd peek_my(0);
}

__END__

{ "\$A" => \undef, "\$B" => \0 }
{ "\$A" => \undef, "\$B" => \0, "\$C" => \3, "\$i" => \0 }
{ "\$A" => \undef, "\$B" => \0, "\$C" => \3, "\$i" => \1 }
{ "\$A" => \undef, "\$B" => \0, "\$C" => \3, "\$i" => \2 }
{ "\$A" => \undef, "\$B" => \0, "\$C" => \3, "\$i" => \3 }