my @array = (undef, map([undef, map($_-64, unpack('C3', $_))],
                                             unpack('(A3)*', $string))) ;