my (@a, $i);