my@a=([],[],[],[],[],[],[],[],[],[]);
my$a=-1;map{@$_=(++$a)x$a}@a;
map{map{print "-",$_}@$_;print"\n"}@a;