在perl中重写递归函数,以便可以在列表上下文中使用它

sub fibonacci {
    my ($n) = @_;

    if ($n == 0) {
        return ();
    } elsif ($n == 1) {
        return (0);
    } elsif ($n == 2) {
        return (0, 1);
    } else {
        my @fib = fibonacci($n - 1);
        push @fib, $fib[-1] + $fib[-2];
        return @fib;
    }
}

my @fibonacci_list = fibonacci(10);
print "Fibonacci sequence: @fibonacci_list\n";

my $fibonacci_scalar = fibonacci(10);
print "Last number in Fibonacci sequence: $fibonacci_scalar\n";