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