{  # localize the lack of B&D
  no strict 'refs';
  foreach my $sub (@do_something) { $sub->() }
}
[download]