@list = unpack('C*', $kekka);