my $r = \{expr};

##</code><code>##

my @rv = expr;
my %h = @rv;
my $hr = \%h;
my $r = \$hr;

##</code><code>##

$ThingsToDo{firstTask};

##</code><code>##

&{$ThingsToDo{firstTask}}();

##</code><code>##

$ThingsToDo{firstTask}->();

##</code><code>##

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

...

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