my $x; ... $x = getValue() unless defined $x; #### my @a; ... @a = getValues() unless @a; #### @a //= getValues();
## my @a; ... @a = getValues() unless @a; ##
## @a //= getValues();