sub ordinal { unpack("c",$_[0]); } # same as ord()