my $i; 
for $i ( 1..10 ){ 
    1; 
}; 
print $i };;
Use of uninitialized value $i in print at (eval 9) line 1, <STDIN> line 1.