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";
}