$obj->do { stuff(@_) }

##</code><code>##

$object->method(sub { 
  my ($arg) = @_;
  # stuff
});

##</code><code>##

@result = map { insert(@your_code_here) } @input;

##</code><code>##

sub one_hundred_and_one_times(&) {
  my $block = shift;
  $block->() for (0 .. 100);
}
@result = one_hundred_and_one_times { more($stuff) };

##</code><code>##

$object->method { # code block };