>perl -MO=Deparse -e"my @a = x() | (4,5,6);"
my(@a) = x() | ('???', '???', 6);