perl -E 'my $aref=[undef]; $aref->[1000][0]; say scalar @{ $aref }' 1001