$Byte = ord substr($_[0],$i,1);