my @ADsamples = unpack 'n*', $binaryData;

##</code><code>##

@signed = map{ $_ > 32767 ? $_ - 65536 : $_ } @unsigned;