my @$ra_ret_save = @$ra_ret; 

##</code><code>##

my $ra_ret_save = [ @$ra_ret ];

##</code><code>##

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);

##</code><code>##

perl 5.8.0
----------
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];

perl 5.6.1
----------
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];