my @s= ( ( (0)x$n, -1 )x$n, (-1)x$n, -1 );