1
2
3
4
5
6

sub XYZ {
 my @array = 1..100;
 defined( wantarray )
     ? return @array
     : return \@array;
}

Quote

Returns true if the context of the currently executing subroutine or "eval" is looking for a list value.
Returns false if the context is looking for a scalar.
Returns the undefined value if the context is looking for no value (void context).

1
2

return unless defined wantarray;
return wantarray ? @array : \@array;