Untitled

sub modify-copy-and-return(@a is copy, @b is copy) {
  my @buffer;
  @buffer.append: @a;
  @buffer.append: @b;

  @buffer.push: [1,2];

  say "BEFORE RETURN ...";
  dd @buffer;
  # Array @buffer = [[1, 2], [3, 4], [3, 4], [5, 6], [1, 2]]
  True, @buffer;
}

my @a = [1,2],[3,4];
my @b = [3,4],[5,6];

my $should-continue = False;
my @buffer;
($should-continue, @buffer) = modify-copy-and-return(@a, @b);

say "AFTER RETURN ...";
dd $should-continue;
dd @buffer;

:($should-continue, @buffer) := modify-copy-and-return(@a, @b);

say "AFTER RETURN ...";
dd $should-continue;
dd @buffer;