my ($k, $v);
my %data_all;
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_hashref($sql, 1);

while ( ($k,$v) = each %data_all ) {
    print "$k => $v\n";
}