my @ARRAY=subroutine();

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

##</code><code>##

return wantarray ? @array : \@array;