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