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");
}