perl -MO=Deparse,-p -e 'sub x {return (1,2)} @c=x()||(1,2);@d=x() or (1,2);'
sub x {
    return(1, 2);
}
(@c = (x() || (1, 2)));
((@d = x()) or ('???', '???'));