Are you aware that Perl has list-context?

my @ARRAY=subroutine();

sub subroutine {
 my @array=("one", "two"," three");
 return @array;
}
[download]

If you still need to return an array-ref in other cases just check wantarray in a condition to see if a scalar is expected.

return wantarray ? @array : \@array;
[download]