#1 (at 35 chars)
map{print@_.$";pop@_}@_=($")x ord$/

#2
$$_=~/((((((((((.))))))))))/for$|..ord$/;print map
$_.$",sort{chr$b cmp chr$a}grep/\d/&$||$_,keys%::