my $sql = "select Col1, Col2, Col3 from TABLE where Col4 = 1";
my $dbq = $dbh->prepare($sql);
$dbq->execute or die "Could not execute $sql:$!\n";
my $ref = $dbq->fetchall_hashref('Col1');