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