@line = (0) x $y;
for ($c=0;$c<=$x;$c++)

	{	
	print "$c\n";
	push (@AoA, [@line]);
	}