my $people = [
    { name => 'fred', age => 25, height => 1.5 },
    { name => 'sally', age => 20, height => 1.4 },
  ];
  for my $person (@$people} {
    print $person->{name},"\n";
  }

##</code><code>##

  my $people = [
    [ 'fred',  25,    1.5 ],
    [ 'sally', 20,    1.4 ],
  ];

  my $accessor = accessor->new(
     keys => ['name','age','height'],
     data => $people,
   );

  for my $person (@$people} {
    print $person->{name},"\n";
  }