my $rval = \@rval;

##</code><code>##

$ perl -e'for(1..10){my @rv; my $ref=\@rv; print "$ref\n"}'
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)
ARRAY(0x810218c)

##</code><code>##

my $rval=[@rval];