my $rs = $schema->resultset("AccTrans")->search(
   { transdate => { '>=', '2011-04-01', '<=', '2011-04-30' }, 'chart.category' => [ "I", "E" ] },
   { join => "chart" }
);
say for $rs->accounts;