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

       # ...

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

       print "Values: @$right_array\n";        #Works!
}


fill_array(@name);

foreach my $entry (@name) {
   print "$entry\n";        #Remains empty...
}