for (1..4) {
   my $x;
   print ++$x, " ", \$x, "\n";
   sub { $y = $x };
}