map { BLOCK2; (return_list2) } map { BLOCK1; (return_list1) } @input;

##</code><code>##

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