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

       # ...

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

       # ...
}

# As a test
fill_array (@name);