perl_block_table