変数を共有するclosure

2つのclosureを作ると
sub make_pipe {
  my @buffer;
  (sub { push(@buffer, @_) },
   sub { shift(@buffer) });
}
($in, $out) = make_pipe();
@bufferはこれら2つのclosureだけから見える
真にプライベートな変数