{ package ProjectA; { my $i; sub prepare { print ++$i, "\n"; } } }

my $project = 'ProjectA';
my %ThingsToDo = (firstTask => \{$project->prepare});

$ThingsToDo{firstTask};
$ThingsToDo{firstTask};