my %ThingsToDo = (
   firstTask => sub { my $pkg = shift; $pkg->prepare(@_) },
);

...

$ThingsToDo{firstTask}->($project);