$a="0"x24;%b=(x20,[4,C,11],##
x61,[5,13],x63,[14],x65,[A,E,
16],x68,[9,12],x6A,[0],x6B,##
[15],x6C,[10],x6E,[6],x6F,[7]
,x70,[D],x72,[B,F,17],x73,[2]
,x74,[3,8],x75,[1]);foreach##
$c(keys%b){foreach(@{$b{$c}})
{substr$a,hex,1,chr(hex($c));
}}print"$a";#fun with hashes#