use My::ClassDBI;

use strict;

# you can place the has_many here or in the
# package as shown above

# Table1->has_many('method_name_you_want' ,
#                  Table2 => 'related_column' );

my $row_from_table1 = Table1->retrieve(1);

my @table2_objects = $row_from_table1->method_name_you_want;

foreach (@table2_objects) {
    print $_->column_name , "\n";
}

1;