クロージャ

Perlのクロージャってこうやるのか、
Rubyのブロックのほうがシンプルで好きだな。

sub aaa {
  my ($args, $method_ref) = @_;
  $method_ref->($args);
}

aaa('hogehoge', sub {
  print @_, "\n";
});