my $firstbit = ($longsize * 8) - 1; my $firstbit_mask = 1 << $firstbit;