$person->make_head('large')
       ->make_nose('small')
       ->make_belly('surgerized');

##</code><code>##

package Table;
  use Column;
  sub new { bless [],__PACKAGE__ }
  sub col {
    return $_[0]->[$_[1] + 1] if exists $_[0]->[$_[1] + 1];
    $_[0]->make_column([$_[1] + 1]) and return $_[0]->[$_[1] + 1];
  }
  sub make_column {
    $_[0]->[$_[1]] = Column->new;
  }