おい、おれのデータベースオブジェクトをみてくれ、どう思う？
my $dbCst = TCustomer->new($dbi);
my $dbCstAdr = $dbCst->outerJoin( TAddress->new(), 'id_address');
foreach my $rec ($dbCstAdr->find($cond, $limit)) {
   print $rec->{'customer_id'}, " = ", $rec->{'juusyo'}, "\n";
}