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