That should probably have been:

  use ProjectA;
  my $project = 'ProjectA';
  my %ThingsToDo = (firstTask => sub { $project->prepare });
  $ThingsToDo{firstTask}->();
[download]