Select Code to Download

my $href = {
  'x' => {
...
  },
  'charm' => { .... },
};

foreach  my $obj  (%{$href})
# This dereference ^ causes a deep copy to be made

01: my $list = [1, 2, 3];
02: doStuff($list);
...
09:     print "$listElement \n";
10:   }
11: }