Help for this page
{ package ProjectA; { my $i; sub prepare { print ++$i, "\n"; } } } ... $ThingsToDo{firstTask}; $ThingsToDo{firstTask};