The first is my favorite, and doesn't remotely work under warnings or strict. The second is a recusive solution for fun. The third is the trivialization of both solutions.

   #1
   $$_=~/((((((((((.))))))))))/for length$"..length$"x($^F<<$^F).$"x$^
+F;
   print map$_.$",sort{chr($a)cmp chr($b)}grep!($|eq$_)&&/\d/,keys%::


   #2
   sub r{
     ($_,$a)=@_;$;=join'',/(.)/,$_;print$",length;r($;,$a)if!(length$;
+eq$a)
   }
   r$",length$"x($^F<<$^F).$"x$^F.$"


   #3
   print $_ for length$"..length$"x($^F<<$^F).$"x$^F
[download]

update: d'oh, atcroft beat me to recursion...
update2: reformatted, hopefully it looks better