Just thought I'd point out that this is an interesting reinvention of a previous post (though with one less level into the call stack due to the goto). Compare:

# Your's:
sub make_call { goto $_[0] }

# Anonymonk's(slightly rearranged):
sub Y { $_[0]->(@_) }
[download]

Update: Well, it's more the same if you change your call to:

make_call (sub {
        my $factor = $_[1];
   
        return $factor > 1
            ? $_[0]->($_[0], $factor-1) * $factor
            : 1;
    }, $_);
[download]