use DBI;
my @tables = qw(name car pet);
my @name, @car, @pet;

sub fill_array() {
   $sql = "select * from $i;";
   $dbh = DBI->connect($dsn, $dbuser, $dbupass)
             || die "Connection failed: $!\n";
   $sth = $dbh->prepare( "$lsql;" )
             || die "Couldn't prepare: $!\n";
   $sth->execute();
   while ( my @row = $sth->fetchrow_array ) {
      #Here's my problem :(
      <@(right_array)> = (<@(right_array)>, row[1]);
   }
   $rc = $dbh->disconnect || die "Disconnect Failed: $!\n";
}