如何将Perl子的返回值转换为arrayref？

sub my_sub {
    my @array = qw(a b c d e);
    if (wantarray) {
        return \@array;
    } else {
        return @array;
    }
}

# 使用my_sub()作为arrayref
my $arrayref = my_sub();
print join(', ', @$arrayref), "\n";

# 使用my_sub()作为列表
my @list = my_sub();
print join(', ', @list), "\n";