$x = unpack 's', reverse pack 's', $x;

##</code><code>##

    $x = unpack 's', pack 'n', $x;