my $i=42; 
for my $i (1..10){ 
    print $i; 
} 
print $i;
## gives
1 2 3 4 5 6 7 8 9 10 42