small addendum to previous post

on the subject of maintainability this is really bad!
but is does print out entire 2D array in one line :-)

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

This code would almost pass for a JAPH now! In fact here is a challenge. Here is some code based on this thread. What does this do, no running it now, that would be cheating ;-)

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

tachyon