package GroupSystem;
sub new {
   my $class  = shift;
   my $self = [{}];