use strict;
use warnings;

my %h = (a => 1, b => 2, c => 3);

sub clone_h { print "cloning \%a\n";
              return +{%h}; }

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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

my @a = qw(a b c);

sub clone_a { print "cloning \@a\n";
              return [@a]; }

foreach my $entry (@{clone_a()}) {
  print "$entry\n";
}