$sha->add(@ascii);

##</code><code>##

    $sha->add(encode_utf8($x));

##</code><code>##

    @z = unpack("c*",$sha->digest);

##</code><code>##

91 -86 97 -28 -55 -71 63 63 6 -126 37 11 108 -8 51 27 126 -26 -113 -40