push (@right_array, $row[1]);

##</code><code>##

push (@right_array, \@row);

##</code><code>##

sub fill_array(\@)
{
       my ($right_array) = @_;

       # ...

       while (my @row = $sth->fetchrow_array())
       {
             push (@$right_array, \@row);
       }

       # ...
}

# As a test
fill_array (@name);

##</code><code>##

my @row = @{$name[1]};           # Row 1
my $row_item_1 = $name[1][1];    # Row 1 column 1