$b[$_]=chr
        ($_%9?0x2E :
       0xA)for 1..72;
      $d = "1z2s3h4z5n
     19i20s30n31o32t41v
    42e43r44y57c58l59e6
   0a61r   62.";$d=~
    s/\s   +//gx;$b[$1
          ]=$2while$d=~
          /(\d+)(\D)/g;
        $d='brian_d_foy';
        $c='zshzn';shift
         @b;unshift@b,' '
           .$c,chr
         10;push @b,$
        d,chr 0xA; $,=
       chr 0x20; print @b;

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)