my $a;
$a = unpack('%32b', $a);
$a = unpack($a, $a)
