##
$object->method(sub {
my ($arg) = @_;
# stuff
});
##
##
@result = map { insert(@your_code_here) } @input;
##
##
sub one_hundred_and_one_times(&) {
my $block = shift;
$block->() for (0 .. 100);
}
@result = one_hundred_and_one_times { more($stuff) };
##
##
$object->method { # code block };