$ perl -le'
    my @a;
    print defined($a[0]) || 0;
    $a[0][0];
    print defined($a[0]) || 0;
'
0
1