select * from dept; select * from emp;
+--------+----------+
| deptID | name     |
+--------+----------+
|      1 | pers     |
|      2 | sales    |
|      3 | research |
+--------+----------+

+-------+-------+--------+
| empID | name  | deptID |
+-------+-------+--------+
|     1 | John  |      1 |
|     2 | Fred  |      2 |
|     3 | Susan |      2 |
+-------+-------+--------+

select distinct dept.deptID, emp.deptID 
    from dept left join emp using(deptID);
+--------+--------+
| deptID | deptID |
+--------+--------+
|      1 |      1 |
|      2 |      2 |
|      3 |   NULL |
+--------+--------+

##</code><code>##

my $query = qq{select distinct dept.deptID, emp.deptID 
    from dept left join emp using(deptID)};

my $sth = $dbh->prepare($query);

$sth->execute();
print "--- names\n";
print join ", ", @{$sth->{NAME}};

print "\n--- fetchrow_hashref\n";
my $row = $sth->fetchrow_hashref();
print "$_ \t" for keys %$row;
print "\n";
$sth->finish();

__OUTPUT__

--- names
deptID, deptID
--- fetchrow_hashref
deptID