use strict;
use 5.10.0;
my @flds;
$flds[16] = undef;
say 0+ @flds;