sub new {
   my $class = shift;
   my $self = {
                  coreID => 0,
                  isBpMaskError => 0,
                  isVrrpErrors => 0,
                  isSymPriorityErrors => 0,
                  isSslProfileErrors => 0,
                  isGlobalPortErrors => 0,
                  isVipsinVipGroupsErrors => 0,
                  isVipGroupErrors => 0,
                  isSnatIpErrors => 0,
                  isCodeVersionErrors => 0,
                  aclsMissingFromMaster => {},
   };
   
   bless $self, $class;
   return $self;
}

##</code><code>##

%hash1{'list1'}-> [1,2,3,4]
%hash1{'list2'}-> [4,5,6,7]
...