$b='a';$x.=$b++x3 .' 'for(1..7);@x=split/ /,$x;@y=(6_622,
12_154,8_559,1_052,345,1219,2663,4746);@x=split//,join'',
map{$b=$_;$x[$b]++for(1..$y[$b]);$x[$b]}(0..6);print join
'  ',map{$_=join'',splice@x,0,$_;ucfirst}split(//,$y[7]);