#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

sub test {
    my @list = (1, 2, 3);
    return wantarray ? @list : \@list;
}

$, = ",";
say test();

my $ref = test();
say $ref;