my @a;
$a[1] = undef;
$a[2] = 0;
$a[3] = 7;