use constant name   => 0;
use constant age    => 1;
use constant height => 2;

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

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