sub getActiveSessions {
  my ($self, @ids) = @_;
  my $idPlaces = (join ', ', ('?') x @ids) || '';

  return $self->{'dbh'}->selectall_arrayref( <<SQL, {}, @ids );

  SELECT p.Name, r.Name, s.Topic, s.DoneDate
  FROM Person p
  JOIN PersonRoles pr ON pr.PersID = p.PersID
  JOIN Role r ON r.RoleID = pr.RoleID
  JOIN PersonSessions ps ON ps.PersID = p.PersID
  JOIN Session s ON s.SessID = ps.SessID
  WHERE p.PersID IN ($idPlaces)
  AND s.DoneDate = '2015-06-27'
SQL
}

say Dumper( $self->getActiveSessions(1..7) );