my $r_array = [ 'inky', 'blinky', 'blu' ];

##</code><code>##

@{ $r_array }

##</code><code>##

for ( @{ $r_array } )
{
    print "$_\n";
}

##</code><code>##

for ( @$r_array )