When I pull a query like that, I normally do it like:

my $dbh =  DBI->connect('DBI:Sybase:#####', '#####', '#####', { RaiseE
+rror => 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;
}
[download]

Will that do what you are looking for.