Select Code to Download

my $rval = \@rval;

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

my $rval=[@rval];