%where = (
  't.col1' => \'= t.col2',
);
my ($stmt) = $sql->where( \%where);
print $stmt,"\n";