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