Select Code to Download

use strict;
use warnings;
...
while (my ($key, $val) = each(%{clone_h()})) {
  print("$key => $val\n");
}

cloning %a
b => 2
...
cloning %a
c => 3
...

use strict;
use warnings;
...
foreach my $entry (@{clone_a()}) {
  print "$entry\n";
}