my @a = ();
$a[-1] = 1;