sub slice_ref {
   return \@_;
}

my @foo = (1..5);

# If a ref is ok:
#my $bar = slice_ref @foo[0..2];

# If an array is prefered:
our @bar; *bar = slice_ref @foo[0..2];

print('foo: ', join(', ', @foo), "\n");  # foo: 1, 2, 3, 4, 5
print('bar: ', join(', ', @bar), "\n");  # bar: 1, 2, 3

print("\n");

$bar[0] = 'a';
print("After changing bar0:\n");         # Works:
print('foo: ', join(', ', @foo), "\n");  # foo: a, 2, 3, 4, 5
print('bar: ', join(', ', @bar), "\n");  # bar: a, 2, 3

print("\n");

splice(@bar, 1, 0, 6);
print("After inserting into bar:\n");    # Doesn't work:
print('foo: ', join(', ', @foo), "\n");  # foo: a, 2, 3, 4, 5
print('bar: ', join(', ', @bar), "\n");  # bar: a, 6, 2, 3