my $dbh =  DBI->connect('DBI:Sybase:#####', '#####', '#####', { RaiseError => 1, AutoCommit => 1});
my $sql = "select Col1, Col2, Col3 from TABLE where Col4 = 1";
my $data_all = $dbh->selectall_arrayref($sql, { 'Columns' => {} } );

for my $row ( @$data_all ) {
  print "$_ => $row->{$_}\n" for keys %$row;
}