sub return_getter_setter {
  my $value = shift;
  (sub { $value }, sub { $value = shift });
}
my ($getter, $setter) = return_getter_setter(42);