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