Select Code to Download

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

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