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