BLOCK4:{ my $year=$year;--$year; print "We change \$year to $year\n"; }