use strict;
use warnings;
use Data::Dumper;

my $ra_ret = [ qw/ a b c d / ];
print Dumper($ra_ret);

my $ra_ret_save = [ @$ra_ret ];
print Dumper($ra_ret_save);