use bytes;
$zahl = unpack "s", $b1.$b2; # Deine 2 Bytes