Help for this page

Select Code to Download

Select or download this

for my $i (1..3) { 
  $numbers{$i} = sub { $i++;print $i }; 
}

Select or download this

  DB<37> for my $i (1,2,3) { $numbers{$i} = sub { $i++;print $i }; pri
+nt \$i}
SCALAR(0x9338210)SCALAR(0x92bdc90)SCALAR(0x9338190)
  DB<38> &{$numbers{1}}
Modification of a read-only value attempted at (eval 43)[/usr/share/pe
+rl/5.10/perl5db.pl:638] line 2.