use strict;

our $\="\n",$,="\t";

my @A=qw< a b c>;

sub ret_slice_arr3 {
    return @{[]} = @_[0..$#_];
}

print scalar( ret_slice_arr3(@A) ),ret_slice_arr3(@A);	#: 3	a	b	c