[0]{} Perl> my @names = qw[ the quick brown fox ]; undef %h; for my $alias ( @names ){ $h{ $alias } = sub { print $alias; }; }; pp \%h; { brown => sub { "???" }, fox => sub { "???" }, quick => sub { "???" }, the => sub { "???" }, } $names[ 1 ] .= 'Mysterious changes'; ###### And again here! for my $key ( keys %h ) { $h{ $key }->(); };; the fox brown quickMysterious changes