$x = chr(0); $x x= 2**16; undef $x;