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);