DB<8> for my $x (1..3) { print \$x }
SCALAR(0x3450e50)SCALAR(0x3450e50)SCALAR(0x3450e50)
  DB<9> for my $x (1..2) { print \$x; $a = sub {$x} }
SCALAR(0x3459b20)SCALAR(0x3328238)