perl -MO=Deparse -e '$x=[1, , ,2]' 
    $x = [1, 2];


##</code><code>##

    perl -MO=Deparse -e '$x=(1, , ,2)' 
    $x = ('???', 2);