my @factorials = map {

    $_[0] ||= sub {
        my $factor = pop;

        return $factor > 1
            ? &{$_[0]}($_[0],$factor-1) * $factor
            : 1;
    };

    &{$_[0]}($_[0],$_)} (3,5,7,9);

##</code><code>##

sub make_call {
    goto $_[0];
}

my @factorials = map {

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

} (3,5,7,9);