for (my $i = 0 ; $i < 10 ; $i++) {
    print "$i ";    #a locally scoped $i
}
print "\n"; #separate from the next section of output

for my $this1 (1 .. 20) {
    print "$this1 ";   #also prints the locally scoped $this1
}
print "\n"; #separate from the next section of output

for (30 .. 40) {#since no running variable defined make $_ lexical
  print "$_ ";  #print the lexically scoped default variable
}