my $query1 = "
    select \"column1\", \"column2\" from Database.Table where \"column1\" in ($values_string) and \"column3\" != '2'
";

##</code><code>##


my $dsn2 = 'DBI:Sybase:server=xx.xx.xx.xx';
my $dbh2 = DBI->connect($dsn2, "user", 'pass');
die "unable to connect to server $DBI::errstr" unless $dbh2;

my $values_array=${$dbh2->selectall_arrayref($query1)};

while (my $row = shift(@$values_array)) {
    print "row->[0], row->[1]\n";
}

##</code><code>##

Not a SCALAR reference at line 108