my @array = ( [1],[2,2],[3,3,3],[4,4,4,4] );
map{map{print "-",$_}@$_;print"\n"}@array;

##</code><code>##

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