perl -we '@bar = (); @bar = @bar || (1, 2, 3); warn "(@bar)";'