map { BLOCK1; local $_ = $_; map { BLOCK2; (return_list2) } (return_list1) } @input