use lib qw(lib);
use DBIC::Schema;
use Data::Dumper;

my $schema = DBIC::Schema->connect("dbi:Pg:dbname=dbic; host=localhost","pguser","pgpassword");

my $t1_rs = $schema->resultset('T1');
$query_rs = $t1_rs->search;
while (my $account = $query_rs->next)
{ print Dumper $account->groupname->name; }
  
my $t2_rs = $schema->resultset('T2');
$query_rs = $t2_rs->search;
while (my $account = $query_rs->next)
{ print Dumper $account->groupname->name; }