Select Code to Download

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

$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 };