perl -E 'my $aref=[undef]; say 0 + $aref' 19468616