Request translation into Perl

I'm testing something, and I'm stuck trying to write a Perl equivalent of this function because Perl's syntax is made of ugly, rudimentary, hack and fail. Could you please show me how to do this very simple thing in Perl?

function f($i = 1, $r = 17) {
    return --$r <= 0 ? null : array($i => f($i + 2, $r), $i + 1 => f($i + 3, $r));
}
Thanks!

Just because Python might (for some definitions of might) be a betterlanguage than Perl does not mean that PHP isn't a shitty language. The two issues are unrelated.