my @array = qw[aa bb cc dd ee ff gg];
my $r2a = \@array;
foreach (@{$r2a}) {
    print "$_\n";
}