Select Code to Download

  foreach my $name (sort keys %fruit_data) {
    # get the color and shape from the data hash
...
    # put this row into the loop by reference             
    push(@loop, \%row);
  }

print "Here we push a hash onto a list, modify the hash and push again
+\n";
my @list;
...
    print "$key = $$_{$key}\n";
  }
}