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