perl -MO=Deparse,-p -e 'my @one = 7,2,3; print "@one"' ((my(@one) = 7), '???', '???'); print("@one\n"); -e syntax OK