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