新年です。Perlです。

プログラマに言葉はいらない。さぁ言語で語ろう。

use strict;

print join'',do{my$h;map{pack'H*',sprintf"%x",$_->[0]}sort{$a->[1]<=>$b->[1]}map{my$t=$_;map{[$t,$_]}@{$h->{$t}}}keys%{$h=sub{{
    101,[2,9,13,15],114,[32],32,[10,19,29],97,[0,4]
    ,100,[14],109,[3,12,27],115,[5,24,34],121,[30],
    117,[18,38],107,[1,20,37],104,[6,25,35],111,[11
    ,17,21,23,28,31,33],105,[7,26,36],116,[8,16,22]
}}->()}};