# return the first less significant bit set. return $_ for grep { $bit & 1<<$_ } (0..8)';