OOP without objects

  sub handle_field {
    my ($object, $field) = @_;
    $object->{$field} = $_[2] if @_ > 1;
    $object->{$field};
  }

  $person = {
	NAME => "nat",
	AGE  => 27,
	name => sub { handle_field($person, "NAME") },
	age  => sub { handle_field($person, "AGE") },
  };

  $person->{name}->("Nathan");
  $person->{age}->($person->{age}->() + 1);