# bitfield format: xxxMMMxx

my @msgs = ( 'a' .. 'i' );
my $msg = $msgs[ ( $bitfield >> 2 ) && 7 ];