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