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