my @a;
$a[1] = undef;
$a[2] = 123;