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